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

(sd-defdialog 'parallelen
:toolbox-button t
:dialog-control :sequential
:variables
'((Abst
:value-type :positive-number
:prompt-text "Zu teilendes MaÞ eingeben."
)
)
:ok-action
'(progn
(sd-put-buffer (format nil "c_line_inf :parallel ~a -~a" (/ Abst 2) (/ Abst 2)))
)
)