(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))
   
 :mutual-exclusion '(my-btn-1 my-btn-2 my-btn-3 my-btn-4))