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

      
(sd-defdialog 'my-button-dialog
	:dialog-title "My button"
	:toolbox-button t
	:variables '(
  (my-btn-1
   :title "Button 1"
   :value-type :boolean
   :indicator-type :none
   :after-input (display "Button 1 pressed")
   :toggle-type :grouped-toggle)
  (my-btn-2
   :title "Button 2"
   :value-type :boolean
   :indicator-type :none
   :after-input (display "Button 2 pressed")
   :toggle-type :grouped-toggle)
  (my-btn-3
   :title "Button 3"
   :value-type :boolean
   :indicator-type :none
   :after-input (display "Button 3 pressed")
   :toggle-type :grouped-toggle)
  (my-btn-4
   :title "Button 4"
   :value-type :boolean
   :indicator-type :none
   :after-input (display "Button 4 pressed")
   :toggle-type :grouped-toggle)
  ("-")
  (my-btn-5
   :title "Button 5"
   :value-type :boolean
   :indicator-type :none
   :after-input (display "Button 5 pressed")
   :toggle-type :grouped-toggle)
  (my-btn-6
   :title "Button 6"
   :value-type :boolean
   :indicator-type :none
   :after-input (display "Button 6 pressed")
   :toggle-type :grouped-toggle)
  (my-btn-7
   :title "Button 7"
   :value-type :boolean
   :indicator-type :none
   :after-input (display "Button 7 pressed")
   :toggle-type :grouped-toggle)
  (my-btn-8
   :title "Button 8"
   :value-type :boolean
   :indicator-type :none
   :after-input (display "Button 8 pressed")
   :toggle-type :grouped-toggle))

 :mutual-exclusion '((my-btn-1 my-btn-2 my-btn-3 my-btn-4) (my-btn-5 my-btn-6 my-btn-7 my-btn-8)))