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

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

(sd-defdialog 'dc4-anno-praegekanten-umfaerben-dialog
:dialog-title "Praegekanten 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 (("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 "SOLID"
    )
   )
:local-functions
  '((go-action ()
     (let (comstring)
      (setf comstring (format nil "~a ~a ~a~%~a ~a ~a~%~a"
        "CHANGE_COLOR" farbe "SELECT GLOBAL INFOS '*DC4-PRAEGEKANTE*' AND GLOBAL INFOS 'SD_T' CONFIRM END"
        "CHANGE_LINETYPE" linart "SELECT GLOBAL INFOS '*DC4-PRAEGEKANTE*' AND GLOBAL INFOS 'SD_T' CONFIRM END"
        "ADD_ELEM_INFO 'GEOMETRY_ATTRIBUTES_CHANGED_IN_MEXX' SELECT GLOBAL INFOS '*DC4-PRAEGEKANTE*' AND GLOBAL INFOS 'SD_T' CONFIRM END"
      ))
;;(display comstring)
      (sd-execute-annotator-command :cmd comstring)
     );;let
    )
   )
:ok-action
   '(go-action)
)