;;(in-package :ModelManager)

;; Example of how to change the wording of the refresh status text labels
;;(set-mm-status-messages
;;  '((:SYSID-CONFLICT               ,"SysID Conflict")    
;;    (:NEW                          ,"New")
;;    (:UNKNOWN                      ,"Unknown")
;;    (:UP-TO-DATE                   ,"Up-to-date")
;;    (:LOCALLY-MODIFIED             ,"Locally Modified")
;;    (:NEEDS-UPDATE                 ,"Needs Update")
;;    (:CONFLICT                     ,"Conflict")
;;    (:NEWER-VERSION-EXISTS         ,"Newer Version Exists")
;;    (:LOCALLY-MODIFIED-OLD-VERSION ,"Locally modified old version"))
;;

;; ------------------------------------------------------------------------

;, Enable auto status refresh.  Warning this may result in very slow load/reload/save times.
;;(oli::sd-set-persistent-data "ModelManager" "auto-refresh-browser-status" :default t)

;; ------------------------------------------------------------------------
;; Example on how to add new columns to a new view in the structure browsers.
;; Example only works on English systems, you must change the attribute name
;; for different database languages

#| ;; remove line to uncomment/activate browser code example
;; Create a db-uda definition for DESCRIPTION2
(oli::sd-define-db-attribute "DESC2" 
                             :class-name "MODEL_3D"
                             :attachment :contents
                             :keys 
                             '( 
                               ("DESCRIPTION2")
                               )
                             :allowed-owner-types :part-assembly
                             :filing '(:db :sd-file)
                             :master :all
                             :on-split :copy
                             )

;; create a uda column definition
(oli::sd-create-uda-string-column-definition :description2-column
 :title "Desc2" 
 :attribute "DESC2"               ;; matches the sd-define-db-attribute name
 :value-list-key "DESCRIPTION2"   ;; the name of the attribute
 :attachment :contents
 )

;; Create a new view to display the description2 only
(oli:sd-create-browser-view "MM-DESC2-ONLY"
 :title "Desc2 Only"
 :tree-config '(:instance-name " [" :mm-version "] " :mm-state)
 :detail-config '(:description2-column)
 :activate-detail-configuration t
 :enable '(oli:sd-license-free-module-active-p "ModelManager")
 )
|#  ;; remove line to uncomment/activate browser code example
;; End of Browser Column Addition Code
;; ------------------------------------------------------------------------
