(use-package :OLI)
;;;;;;;;;;;;;;;;;;;;
(sd-defdialog 'save_R13'
   :dialog-title "R13 File"
   :variables
      '((PARTS :value-type :part-assembly
               :modifies NIL
               :multiple-items t)
        (FILE :value-type :filename
			  :direction :output
			  :if-exist :confirm-overwrite
			  :initialdirectory (sd-get-current-working-directory)
			  :initialPattern "*.pkg"
              :title "R13 Datei sichern"
              :fileType :package))
 :local-functions
  '(
      (save-all-at-top-pkg-plus-picture ()
		(bin-io-revision :MR-13-RELEASE)
		(AM_SAVE_BUNDLE :overwrite :all_at_top :overwrite :fname (first FILE) :overwrite)
      ) ;end: save-all-at-top-pkg-plus-picture
  ) ;end: local-functions
	:ok-action '(save-all-at-top-pkg-plus-picture)
	:help-action '(sd-display-message (format nil "~%created: 2009-08-24~%last modified: 2009-08-24~%version: 0.01~%Author: Roman Tönshoff~%for: DR. KAISER DIAMANTWERKZEUGE~%~%Macht was ganz dolles~%")
  ) ;end: help-action

)