#|===================================================================================================
SW-Kantenfarbe.lsp
2017-04-26 SW: erstellt von Wolfgang Seel
|#

(in-package  :sw)
(use-package :oli)

(sd-defdialog 'SW-Kantenfarbe
    :toolbox-button  t ; nil	;; Wird in Werkzeugliste eingetragen
	:dialog-title "SW-Kantenfarbe"	;; Überschrift 
	:variables  				
     '(
	 
("Teilekanten einfaerben")	
   (Teile		:selection (*sd-object-seltype*)
				:face-part-allowed t
				:multiple-items t
				:initial-visible t
				:initial-enable t
				:title "Teile:"
				:prompt-text "Bitte Teile wählen"
				:after-input 
				(progn 
					(if Sonderkantenfarbe
					(sd-call-cmds (CLEAR_EDGE_COLOR :edge_3D :IN_PART Teile )) ;; Kantenfarben löschen	
					) ; endif	
					(if KeineFarbe
					(sd-call-cmds (part_prop Teile :the_part :base_edge_color FARBE2 :close))
					(sd-call-cmds (part_prop Teile :the_part :base_edge_color FARBE2))
					) ; endif
					(setf Teile nil)
				);;progn
	);;Teile

	("Kantenfarbe waehlen")	
	(FARBE2 	:value-type :rgb-color
			:title "Farbe:"
			:initial-visible t
			:initial-enable t
			:initial-value 0 ;; nil
    )
	
  (KeineFarbe
          :value-type :boolean
          :toggle-type :wide-toggle
          :title "keine Farbe"
		  :before-input ()		  
		  :after-input (if KeineFarbe 
							(progn (sd-set-variable-status 'Farbe2 :visible nil)
						          (setq FARBE2 :off)
							);;progn
							(progn (sd-set-variable-status 'Farbe2 :visible t)
							(setq FARBE2 0)
							);progn
					   );;if
          :initial-value nil
	) ; KeineFarbe
 
("Sonderkantenfarben löschen")
	(Sonderkantenfarbe
          :value-type :boolean
          :toggle-type :wide-toggle
          :title "Sonderkantenfarbe-löschen"
          :initial-value t
	) ; Sonderkantenfarbe
	
 
   );;variables
   
:ok-action '() 

:cancel-action '()
	
:help-action '(sd-display-message "
2017-04-26 SW: erstellt von Wolfgang Seel
   
Viel Spaß beim Kantenfarben setzen !!!

" :title "SW-Kantenfarbe.lsp" :push "Weiter")
);;sd-defdialog