(in-package :custom)
(use-package :OLI)

;;--------------------------------------------------------------------------*

(sd-defdialog 'dc4-anno-sonderflaechen-umfaerben-dialog
:dialog-title "Sonderflaechen umfaerben"
;;:dialog-control :sequential
:variables
  '(
    (farbe :range (("BLACK" :label "Schwarz")
                   ("WHITE" :label "Weiss")
                   ("RED" :label "Rot")
                   ("GREEN" :label "Gruen")
                   ("BLUE" :label "Blau")
                   ("YELLOW" :label "Gelb")
                   ("CYAN" :label "Cyan")
                   ("MAGENTA" :label "Magenta"))
           :title "Farbe"
           :initial-value "RED"
    )
    (linart :range (("NONE" :label "Standard")
                    ("SOLID" :label "Solid")
                    ("DASHED" :label "Strichliert")
                    ("LONG_DASHED" :label "Lang Strichl.")
                    ("DOT_CENTER" :label "Strichpunkt")
                    ("DASH_CENTER" :label "Lang Strichp.")
                    ("PHANTOM" :label "___ _ _ __")
                    ("CENTER_DASH_DASH" :label "__..__")
                    ("DOTTED" :label "Punktiert"))
            :title "Linienart"
            :initial-value "NONE"
    )
   )
:local-functions
  '((go-action ()
     (let (comstring)
      (if (sd-string= linart "NONE")
       (setf comstring (format nil "~a ~a ~a~%~a"
         "CHANGE_COLOR" farbe "SELECT GLOBAL INFOS '*DC4-SONDERFLAECHE*' CONFIRM END"
         "ADD_ELEM_INFO 'GEOMETRY_ATTRIBUTES_CHANGED_IN_MEXX' SELECT GLOBAL INFOS '*DC4-SONDERFLAECHE*' CONFIRM END"
       ))
       (setf comstring (format nil "~a ~a ~a~%~a ~a ~a~%~a"
         "CHANGE_COLOR" farbe "SELECT GLOBAL INFOS '*DC4-SONDERFLAECHE*' CONFIRM END"
         "CHANGE_LINETYPE" linart "SELECT GLOBAL INFOS '*DC4-SONDERFLAECHE*' CONFIRM END"
         "ADD_ELEM_INFO 'GEOMETRY_ATTRIBUTES_CHANGED_IN_MEXX' SELECT GLOBAL INFOS '*DC4-SONDERFLAECHE*' CONFIRM END"
       ))
      );;if
;;(display comstring)
      (sd-execute-annotator-command :cmd comstring)
     );;let
    )
   )
:ok-action
   '(go-action)
)