(in-package :mibr)
(use-package :oli)
;;-------------------------------------------------------------------------------*
;;     Dialogs                                                                   *
;;-------------------------------------------------------------------------------*
(sd-defdialog 'lade_skizze
:dialog-title "Skizzen laden"
:after-initialization '(progn  ())
:toolbox-button t
:variables
'(
("Button")
(Button_1		:title "Skizze1"
				:push-action (progn ())
				:toggle-type
				:grouped-toggle)
(Button_2		:title "Skizze2"
				:push-action (progn ())
				:toggle-type
				:grouped-toggle)
(Button_3		:title	"Skizze3"
				:push-action (progn ())
				:toggle-type
				:left-toggle)			
(Button_4		:title "Skizze4"
				:push-action (progn ())
				:toggle-type
				:right-toggle)
(Button_5		:title "Skizze5"
				:push-action (progn ())
				:toggle-type
				:wide-toggle)
("Pulldown")
(Pulldown		:prompt-text "werkstoff wählen"
				:title "werkstoff"
				:range ("Skizze1" "Skizze2" "Skizze3" "Skizze4" "Skizze5" "Skizze6")
				:initial-value "Stahl"
				:after-input (progn ())
)
);end variables
:ok-action '() ;:ok-action
);end sd-defdialog