;;--------------------------------------------------------------------------*
;;  Copyright 2005  DC4 Technisches Büro GmbH                               *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Dateiname: am_firmen.lsp
;;  Version  : 1.0
;;  Datum    : 16.08.2005
;;  Author   : Gt
;;--------------------------------------------------------------------------*
;;  Modulbeschreibung: Menue zu Firmenkonfigurationen                       *
;;                                                                          *
;;                                                                          *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Hilfsmittel:                                                            *
;;                                                                          *
;;--------------------------------------------------------------------------*
;;  Zugehoerige Moduln:                                                     *
;;     Name     |    Kurzbeschreibung                                       *
;;              |                                                           *
;;--------------------------------------------------------------------------*
;;  Wichtige Informationen:                                                 *
;;--------------------------------------------------------------------------*
;;  Anderungsverzeichnis:                                                   *
;;   Version   |  Datum   |   Autor    |  Beschreibung                      *
;;             |          |            |                                    *
;;             |          |            |                                    *
;;--------------------------------------------------------------------------*

;;--------------------------------------------------------------------------*
;;     in-packages                                                          *
;;--------------------------------------------------------------------------*

(in-package :custom)

;;--------------------------------------------------------------------------*
;;     use-packages                                                         *
;;--------------------------------------------------------------------------*

(use-package :OLI)

;;--------------------------------------------------------------------------*
;;     export                                                               *
;;--------------------------------------------------------------------------*

;;--------------------------------------------------------------------------*
;;     global variables                                                     *
;;--------------------------------------------------------------------------*

;;--------------------------------------------------------------------------*
;;     menues                                                               *
;;--------------------------------------------------------------------------*

(sd-create-menu "dc4-am-firmen"
  :title "Firmenkonfigurationen"
  :ignoreCmdIcons t
  :contents
  `(
    (:buttonBox "rahmen"
     :title "Rahmen"
     :buttons
     (
      (dc4-anno-firmen-register-all-dialog :label "Alle")
      (dc4-anno-firmen-register-dc4-dialog :label "DC4")
      ;; und so weiter ...
     )
    )
   )
)

(sd-add-menu-button "dc4-am-firmen"
     :label "Firmen"
     :image "DC4/menu_firmen"
     :parent '("TASK" "Annotation")
     :mapmenu "dc4-am-firmen"
)

;;--------------------------------------------------------------------------*
;;     dialogs                                                              *
;;--------------------------------------------------------------------------*

(sd-defdialog 'dc4-anno-firmen-register-all-dialog
:dialog-title "Alle"
:dialog-control :sequential
:variables
  '(
   )
:local-functions
  '(
    (setzen-action ()
     (dc4-clear-frames)
     (dc4-register-dc4-frames)
     ;;und so weiter ...
    )
   )
:ok-action
   '(sd-call-cmds (setzen-action))
)

;;--------------------------------------------------------------------------*

(sd-defdialog 'dc4-anno-firmen-register-dc4-dialog
:dialog-title "DC4"
:dialog-control :sequential
:variables
  '(
   )
:local-functions
  '(
    (setzen-action ()
     (dc4-clear-frames)
     (dc4-register-dc4-frames)
    )
   )
:ok-action
   '(sd-call-cmds (setzen-action))
)

;;--------------------------------------------------------------------------*
;; und so weiter ...

;;--------------------------------------------------------------------------*
;;     functions                                                            *
;;--------------------------------------------------------------------------*

(defun dc4-clear-frames ()
 (docu::docu-unregister-frame-all)
 (docu::docu-register-frame :ui-name "Ohne"
                            :file    (format nil "~a/Ohne.mi" *dc4-rahmen-verzeichnis*) ;;leerer Rahmen, nur ein Punkt auf 0,0
                            ); :wm-name "WM_Ohne")
)

;;--------------------------------------------------------------------------*

(defun dc4-register-dc4-frames ()
 (docu::docu-register-frame :ui-name "DC4 A4 hoch"
                            :file    (format nil "~a/DC4_A4_H.mi" *dc4-rahmen-verzeichnis*)
                            ); :wm-name "WM_DC4_A4_H")
 ;; und so weiter ...
)

;;--------------------------------------------------------------------------*

;; und so weiter ...

;;--------------------------------------------------------------------------*

(dc4-clear-frames)
(dc4-register-dc4-frames)
;; und so weiter ...