;;----------------------------------------------------------------------------------------------*
;; ME10-Makroteil laden
;;----------------------------------------------------------------------------------------------*
(oli::sd-execute-annotator-command :cmd "INPUT 'Infostempel.mac'")
;;----------------------------------------------------------------------------------------------*

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

(oli::sd-defdialog 'infostempel
  :toolbox-button t
  :dialog-control :sequential
  :dialog-title "Infostempel"
  :ok-action
  '(progn ()
     (setf input
     (oli::sd-display-question "Infostempel fÏr die aktuelle Zeichnung erstellen ?" :title "Infostempel")
     )
     (if (eql input :yes)
       (progn
         (oli::sd-execute-annotator-command :cmd "Infostempel_macro")
       )
     (cancel)
     )
   )
)