;;--------------------------------------------------------------------------*
;;  Copyright 2003  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: menu_beispiel.lsp

(in-package :custom)
(use-package :OLI)


(sd-create-menu "my-tools1"
  :title "Meine Tools"
  :contents
  `(
    (:buttonBox "teile"
     :title "Teile/Baugruppen"
     :buttons
     (
       (LOAD_WELLE
	 :commandInput ":filename \"c:/temp/welle07.lsp\" complete"
	 )
       )
      )
     )
  )

(sd-defdialog 'LOAD_WELLE
  :variables
  '(
     (FILENAME
       :value-type :filename
       :direction :input
       )
     )
  :ok-action
  '(load (first FILENAME))
  )

(sd-add-menu-button "my-tools1"
    :label "Meine Tools"
    :parent '("TASK" "SolidDesigner")
    :mapmenu "my-tools1"
)