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

(sd-defdialog 'SD_Test
  :Dialog-title "Test"
  :toolbox-button t
  :after-initialization '(sd-set-variable-status 'BILD :image-file (format NIL "~A/pdf_a1q.bmp" (MEI::GETENV "SDSITECUSTOMIZEDIR")))
  :variables  '(
    (BILD
      :value-type :image
      :image-file (format NIL "~A/pdf_a1q.bmp" (MEI::GETENV "SDSITECUSTOMIZEDIR"))
    );;BILD
    (A1
      :title "A1"
      :toggle-type :grouped-toggle
      :push-action (sd-set-variable-status 'BILD :image-file (format NIL "~A/pdf_a1q.bmp" (MEI::GETENV "SDSITECUSTOMIZEDIR")))
    )
    (A2
      :title "A2"
      :toggle-type :grouped-toggle
      :push-action (sd-set-variable-status 'BILD :image-file (format NIL "~A/pdf_a2q.bmp" (MEI::GETENV "SDSITECUSTOMIZEDIR")))
    )
  )
  :local-functions '()
)