;;--------------------------------------------------------------------------* ;; Copyright 2003 DC4 Technisches Büro GmbH * ;; * ;;--------------------------------------------------------------------------* ;; Dateiname: menu_beispiel.lsp (in-package :custom) (sd-create-menu "my-tools" :title "Meine Tools" :contents `( (:buttonBox "teile" :title "Teile/Baugruppen" :buttons ( (dc4-teile-bilanz-dialog :label "zaehlen") ;; (dc4-teile-bilanz-dialog :label "zaehlen") ;;weitere Eintraege ) ) ;; (:buttonBox "xxxx" ;; :title "YYYY" ;; :buttons ;; ( ;; ... ;; ... ;; ) ;; ) ) ) (sd-add-menu-button "my-tools" :label "Meine Tools" ;; :parent '("TASK" "Annotation") :parent '("TASK" "SolidDesigner") :mapmenu "my-tools" )