;;--------------------------------------------------------------------------*
;;Qualle: http://www.cocreateusers.org/forum/showthread.php?t=8160
;;--------------------------------------------------------------------------*

(in-package :custom)
(use-package :OLI)
;;--------------------------------------------------------------------------*
(sd-defdialog 'teilefarbe
:dialog-title '(sd-multi-lang-string "Partcolor" :german "Teilefarbe")
:toolbox-button t
:after-initialization '(setf farbe "blank")
:variables
'(
(csids)
(wahl
:selection
(*sd-object-seltype*)
:multiple-items nil
:prompt-text "Teil auswählen"
:title "Teil auswählen"
:initial-value nil
)
(farbe
			:value-type :string
            :prompt-text "Farbe wählen"
            :title "Farbe"
		    :proposals ("blank" "verzinkt" "RAL 1023" "RAL 7016" "RAL 7035" "RAL 9006")
		    :auto-add-proposal nil
		    :persistent-proposals t		
		    :initial-value nil
            :check-function #'(lambda (para) (if nil :ok :err))
            :confirmation
             (:Err :dialog :warning
                   :prompt (format nil "Alle ausgewaehlten Teile und Baugruppen werden~%~%entsprechend ihren MM-Inhalten umbenannt!")
                   :severity :high
                   :cancel-cleanup (cancel)
             )
)
)


:ok-action
'(let ()

	
	(when (string= farbe "blank")
		(progn
		(
		;"Toolbar-relative" 
		ts-sd-stl-show-attribute (wahl) 
		ts-sd-stl-enter-feld-dialog "SD-STL-STLEDITOR" "ANMERKUNG" "ANMERKUNG angeben." "blank" 
		ts-sd-stl-editor-ok-dialog "SD-STL-STLEDITOR"
		)
		)
		)

)
)