;;; Bild als screenshot im Annotion im Laufwerk speichern

(in-package :my-test)
(use-package :Oli)

(sd-defdialog 'DRU
  :dialog-title "Druck"
  :toolbox-button T

   :variables
   '(
     ( ausgabe
         :value-type :filename
		 :initialdirectory "C:/tmp"
		 :initial-value nil
		 :filetype :jpg
         :title "Dateiname fuer Bild"
         :prompt-text "Zeichnungsname eingeben"
		 
				 
         :after-input  (progn (sd-execute-annotator-command :cmd
                              (format nil "BITMAP_TO_FILE JPEG PORT CURRENT RESOLUTION 3800,-1 del_old '~a'" (first ausgabe))  
				))
		
	 ) ; end ausgabe 
	) ; end variable
) ; end sd-defdialog