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

(sd-defdialog 'dialogname
  :dialog-title "Titel"
  :mutualexclusion '()

  :variables 
  '(
	(Test
		:value-type :string
	)
	(test2
	:push-action (sd-abort-dialog)
	)
	);variables

  :prompt-text ""
:after-initialization-ui 
	'(unless (equal :yes (sd-display-warning "Abbrechen?"
							:severity :medium))
				(pprint (sd-abort-dialog)))
  
  :cancel-action
  '(progn
   );progn

  :ok-action
  '(progn
   );progn  
   
  :local-functions
  '(
   );local-functions
   
);dialog