(in-package :mei)

;;-----------------------------------------------------------------------------
;; register WM frames to the user interface
;;-----------------------------------------------------------------------------
(when (not (and (functionp 'modelmanager::is-connected) (modelmanager::is-connected)))
  (docu-register-frame :ui-name "WM-A0" :wm-name "A0")
  (docu-register-frame :ui-name "WM-A1" :wm-name "A1")
  (docu-register-frame :ui-name "WM-A2" :wm-name "A2")
  (docu-register-frame :ui-name "WM-A3" :wm-name "A3")
  (docu-register-frame :ui-name "WM-A4" :wm-name "A4")
  (docu-register-frame :ui-name  file: "/format_A4_quer.mi" :wm-name "A4-quer")
  (docu-register-frame :ui-name "WM-A"  :wm-name "A" )
  (docu-register-frame :ui-name "WM-B"  :wm-name "B" )
  (docu-register-frame :ui-name "WM-C"  :wm-name "C" )
  (docu-register-frame :ui-name "WM-D"  :wm-name "D" )
  (docu-register-frame :ui-name "WM-E"  :wm-name "E" )
)

;;-----------------------------------------------------------------------------
;; automatically update title block text references 
;;-----------------------------------------------------------------------------
(docu-unregister-tr-group "tb")
(docu-register-tr-group "tb" "GLOBAL") ;; will be filled with WorkManager data

(oli::sd-unsubscribe-event "*DOCU-CHANGE-SHEET-DATA-EVENT*" 
                           'docu-wm-update-tb-sheet-info)

(defun docu-wm-update-tb-sheet-info ()
  (docu-update-tr-group "tb")
)

(oli::sd-subscribe-event   "*DOCU-CHANGE-SHEET-DATA-EVENT*" 
                           'docu-wm-update-tb-sheet-info)


;; Enable DesignManagement BOM Layouts
;; The layouts must be in the personality/%lang%/sd_customize/ANNOTATION directory
(db-2d-aip-ui::docu-register-tb-classes :partclass "MASTERDATA" :docclass "DRAWING_2D") 
;; Model Manager registers this information from the java code as of 14.00
(when (not (and (functionp 'modelmanager::is-connected) (modelmanager::is-connected)))
  (DOCU-LOAD-BOM-HEAD-LAYOUT :UI-NAME "DM-Custom" :FILE (search-file "sd_customize/ANNOTATION/dmbomh_custom.mi"))
  (DOCU-LOAD-BOM-COMP-LAYOUT :UI-NAME "DM-Custom" :FILE (search-file "sd_customize/ANNOTATION/dmbomc_custom.mi"))
  (DOCU-LOAD-BOM-FLAG-LAYOUT :UI-NAME "DM-Custom" :FILE (search-file "sd_customize/ANNOTATION/dmbomf_custom.mi"))
  (DOCU-LOAD-BOM-HEAD-LAYOUT :UI-NAME "DM-DIN"    :FILE (search-file "sd_customize/ANNOTATION/dmbomh_din.mi"))
  (DOCU-LOAD-BOM-COMP-LAYOUT :UI-NAME "DM-DIN"    :FILE (search-file "sd_customize/ANNOTATION/dmbomc_din.mi"))
  (DOCU-LOAD-BOM-FLAG-LAYOUT :UI-NAME "DM-DIN"    :FILE (search-file "sd_customize/ANNOTATION/dmbomf_din.mi"))
  (DOCU-LOAD-BOM-HEAD-LAYOUT :UI-NAME "DM-ISO"    :FILE (search-file "sd_customize/ANNOTATION/dmbomh_iso.mi"))
  (DOCU-LOAD-BOM-COMP-LAYOUT :UI-NAME "DM-ISO"    :FILE (search-file "sd_customize/ANNOTATION/dmbomc_iso.mi"))
  (DOCU-LOAD-BOM-FLAG-LAYOUT :UI-NAME "DM-ISO"    :FILE (search-file "sd_customize/ANNOTATION/dmbomf_iso.mi"))
  ;; Set default BOM Layouts
  (docu::docu-set-current-bom-flag-layout "DM-ISO")
  (docu::docu-set-current-bom-head-layout "DM-ISO")
  (docu::docu-set-current-bom-comp-layout "DM-ISO")
  (docu::docu-set-current-bom-sketch-layout "DM-ISO")
)

;; load newer macro file
(oli::sd-execute-annotator-command :cmd "INPUT ((GETENV 'MEDIR') + '/wmam_bom.m') INPUT ((GETENV 'MEDIR') + '/wmam_sav.m')")