(in-package :custom)

(use-package :OLI)


(sd-defdialog 'linien_einst
    :dialog-title "Linienfarben"
	:toolbox-button t
    :variables
    '(
	  (Kunde 
		:range (
				(XXX :label "XXX")
				(YYY :label "YYY")
				)
		:initial-value "YYY"
		:prompt-text "Linienstil fÏr Zeichnung angeben."
		:title "Linienstil"
	  ) ;;Kunde
	 ) ;;variables
	:local-functions
	'(
(XXX
;;1.0--------------------------------------------------------------------------------------------------------XXX-Anfang

(modify_default_setting						;; Bezug
	:path "Annotation/General/LineStyle/Color"
	:parent_style :reference
	:a_color WHITE
	:done)

(modify_default_setting						;; Hilfslinien
	:path "Annotation/General/LineStyle/Color"
	:parent_style :construction
	:a_color RED
	:done)	
	
;;1.0--------------------------------------------------------------------------------------------------------XXX-Ende
) ;;XXX

(YYY
;;2.0--------------------------------------------------------------------------------------------------------YYY-Anfang

(modify_default_setting						;; Bezug
	:path "Annotation/General/LineStyle/Color"
	:parent_style :reference
	:a_color YELLOW
	:done)

(modify_default_setting						;; Hilfslinien
	:path "Annotation/General/LineStyle/Color"
	:parent_style :construction
	:a_color RED
	:done)

;;2.0--------------------------------------------------------------------------------------------------------YYY-Ende
) ;;YYY

	 ) ;;local-functions
	:ok-action '(Kunde)
) ;;sd-defdialog