(in-package :custom)
(use-package :OLI)
;;***************************************************************************

;;
(sd-defdialog 'test_liste2
  :dialog-title "Test2"
  :dialog-type :terminate
  :variables
  '( 
   )
:local-functions
  '((after-inp-action ()
     (progn
      (setf pp 0,0)
      (oli::sd-am-set-default-owner :sketch :current-sheet)
      (setf fehler nil)
      (setf tmp_sketch_name "Halbzeugliste")
      (sd-call-cmds (AM_SKETCH_CREATE :GO :OK :sketch_name tmp_sketch_name
                     :REF_POINT pp)
          :failure (setf fehler t))
    
      (when fehler
        (progn
          (display "Test")
          (display "Unerwarteter Fehler beim Erzeugen der Skizze :")
          (display (sd-inq-error-obj :message))
        )
      )
    
      (setf curr_sheet_name (sd-am-inq-curr-sheet-name))
      (setf name_pp (format nil "~a/~a" curr_sheet_name tmp_sketch_name))
    
      ;; alles was nun kommt, soll zur Skizze gehoeren
      (oli::sd-am-set-default-owner :geo :sketch name_pp)
      (oli::sd-am-set-default-owner :text :sketch name_pp)
      (oli::sd-am-set-default-owner :symbol :sketch name_pp)
  
      (sd-execute-annotator-command :cmd "test_a")
     )
    )
   )
  :ok-action
       '(after-inp-action)
)