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


(sd-defdialog 'color-button-dialog
	:dialog-title "Color button"
	:toolbox-button t
	:variables '(
  (my-color-btn
   :embedded-area-definition (create-my-uict-area)
   :title "String"
   :frame t)))
  
(defun create-my-uict-area ()
  (let ((area-name (sd-get-embedded-area-name 'color-button-dialog :my-color-btn)))
    (sd-create-colorbutton-control "MY_COLOR_BUTTON-CB" area-name
      :x              0
      :y              0
      :width          (- (sd-get-default-dialog-client-area-width) 20)
      :height         22)

    (sd-set-colorbutton-color "MY_COLOR_BUTTON-CB" :color "#ff0000")))