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

(sd-defdialog 'am-ansicht-speichern
  :dialog-title "2D Ansicht speichern"
  :toolbox-button t
  :variables
  '(
    ("Speichert eine")
    ("einzelne Ansicht")
(ansicht
      :selection  (*sd-anno-view-seltype*)
      :title "Ansicht"
      :prompt-text "Zu speichernde Ansicht angeben."
      :initial-value nil
    )
    (mi-dateiname
      :value-type :filename
      :fileType :mi
      :add-suffix nil
      :if-exists :confirm-overwrite
      :initialPattern (format nil "~a_~a.mi" (sd-am-inq-drawing-no) (sd-am-inq-name ansicht))
      :title "MI-Datei:"
      :prompt-text "Dateiname der zu speichernden Ansicht angeben."
      :initial-optional t
      :after-input
      (ansicht-speichern-mi)
    )
    (dxf-dateiname
      :value-type :filename
      :fileType :dxf
      :add-suffix nil
      :if-exists :confirm-overwrite
      :initialPattern (format nil "~a_~a.dxf" (sd-am-inq-drawing-no) (sd-am-inq-name ansicht))
      :title "DXF-Datei:"
      :prompt-text "Dateiname der zu speichernden Ansicht angeben."
      :initial-optional t
      :after-input
      (ansicht-speichern-dxf)
    )    
  )
  :local-functions
  '((ansicht-speichern-mi ()
      (progn
        (oli::sd-execute-annotator-command :cmd (format nil "STORE MI  SELECT '~a' CONFIRM DEL_OLD '~a' END" (sd-am-inq-unique-name ansicht) (nth 0 mi-dateiname)))
      )
    )
    (ansicht-speichern-dxf ()
      (progn
        (oli::sd-execute-annotator-command :cmd (format nil "STORE DXF SELECT '~a' CONFIRM DEL_OLD '~a' END" (sd-am-inq-unique-name ansicht) (nth 0 dxf-dateiname)))
      )
    )    
  )
)