;;--------------------------------------------------------------------------*
;;  Copyright 2005  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*

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

(sd-defdialog 'dc4-anno-farben-zeigen-dialog
:dialog-title "Farben zeigen"
;;: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")
                   ("ALL" :label "Alles"))
           :title "Farbe"
           :initial-value "RED"
    )
    (onoff :range (("OFF" :label "Aus")
                   ("ON" :label "Ein"))
           :title "Zeigen"
           :initial-value "OFF"
    )
   )
:local-functions
  '((go-action ()
     (let (comstring)
      (setf comstring (format nil "~a ~a ~a ~a ~a"
        "SHOW SELECT GLOBAL"  farbe "ALL CONFIRM" onoff "END"
      ))
;;(display comstring)
      (sd-execute-annotator-command :cmd comstring)
     );;let
    )
   )
:ok-action
   '(go-action)
)