;*********************************************************************************************
; Dateiname 		: 	SD_HGeoColor.lsp
; Autor         : 	Stephan Wörz nach Vorlage von S.Koehler (INNEO)
; Erstellt      :		21.11.2008
; geändert    	:
;*********************************************************************************************
; Beschreibung	:		- 	Hier geht es um folgendes:
;												Farbe von gewählter Hilfsgeo ändern!
;
;	Optionen			:		-		
;										-		
;										-		
;*********************************************************************************************
; ----------------------------------------------------------------------------------------
; ä Ì	   Ä Ø    ö Î    Ö Ú    ü Ï    Ü Û    ß Þ    ° ³	 µ ó
; (Display (format nil "Name~20T: Stephan")   ~20T >> Setzt Cursor in Spalte 20!!
; (Display (format nil "Name~%: Stephan")     ~%   >> Erzeugt Zeilenumbruch!!!!!!
; ----------------------------------------------------------------------------------------

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

;(sd-hide-console-window)                  
;(sd-show-console-window)                 
;(setf si::*enter-break-handler* t)     

(sd-defdialog 'SD_HGeoColor
   :dialog-title "Hilfsgeo Farbe Ìndern"
   :toolbox-button t
;   :precondition '(SD_CheckWorkplane)  
   :variables '(
                 (Hilfslinien
                   :title "Hilfslinien"
                   :value-type :edge-2d
                   :multiple-items T
                 )
                 (Farbe
                   :title "Farbe"
                   :value-type :rgb-color
                 )
                )
   :ok-action '(Farbe_umsetzen)
   :local-functions '(
                       (Farbe_umsetzen ()
                         (set_edge_color_2d :edges Hilfslinien :color Farbe)
                       )
                      )
)

(sd-define-available-command "SolidDesigner"
                             "SCHILLER"
                             "Hilfsgeo Farbe Umsetzen"
                             :ui-behavior :default  ;UI Verhalten :relative :none
                             :image (format nil "~A/SD_HGeoColor.bmp" (MEI::GETENV "SCHILLERICONDIR")) 
                             :action '(OLI::SD-CALL-DIALOG "SD_HGeoColor")
)