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

(sd-defdialog 'test_farbe
  :dialog-title (sd-multi-lang-string "test color" :german "Test Farbe")
  ;:toolbox-button nil
  :variables
  '(
    (image-file-1-color
        ;:initial-value (format nil "~A/personality/pixmaps/doc3d2d/am_none.xbm" (sd-inq-install-dir)))
        :initial-value (format nil "~A/personality/bitmaps/bmp/blank_image.bmp" (sd-inq-install-dir)))
        
    (test_farbe
        :value-type :rgb-color
        :title (sd-multi-lang-string "test color" :german "Test Farbe")
        :initial-value (random (sd-rgb-to-color 1,1,1))
        :size :third
        :after-input (progn
                        (sd-set-variable-status 'farbe_0 :value (format nil "~8D  #~6,,,'0<~X~>" test_farbe test_farbe))
                        (sd-set-variable-status 'farbe_1 :value test_farbe)
                        (sd-create-image "display-color" :filename image-file-1-color
                                                         :background (format nil "#~6,,,'0<~X~>" test_farbe))
                        (sd-set-variable-status 'farbe_2 :image-name "display-color")
                        )
        )                
    ("-")   
    (FARBE_0
        :value-type :display-only
        :initial-value nil
        :size :none ;; none is only working for display-only 
        )        
    ;; ueber ein gesperrte variable
    (FARBE_1
        :value-type :rgb-color
        ;title (sd-multi-lang-string "Color 1" :german "Farbe 1")
        :title ""
        ;:value-type :display-only
        :initial-enable nil
        :initial-value nil
        :size :third  ; :none -> does :none not work in 14 ? or not for color at all?
        )
    ;; ueber ein image variable und eine (temporare) image datei..  
    (FARBE_2
        :value-type :image
        :image-height 24
        :image-alignment :center
        ;:image-file image-file-1-color
        )
  );;variables
  :after-initialization 
  '(progn
      (sd-set-variable-status 'test_farbe :value (random (sd-rgb-to-color 1,1,1)))
      )
);;sd-defdialog