; -*-Lisp-*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; File: $INSTALLDIR/personality/sd_customize/PEWMSD/wm_customize
;
;  This file contains cusomization utility functions for 
;  WorkManager Desktop
;
; Language:     Lisp
;
; (C) Copyright 1997-2003 CoCreate Software GmbH, all rights reserved.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
( in-package       :db-aip-ui )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Customize the default scan level
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq db-aip-ui::*Awmc_val_scan_level* 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Customize the defaults for thumbnail creation
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq db-aip-ui::*store-with-thumbnail* t)
(setq db-aip-ui::*thumbnail-fit* t)
(setq db-aip-ui::*thumbnail-vp* nil)
(setq db-aip-ui::*thumbnail-size* :128x128)   ;; legal values :32x32, :64x64, :128x128, :256x256, 
                                              ;;              :32x24, :64x48, :32x64,   :64x128
											  ;;              :user
(setq db-aip-ui::*thumbnail-user-size-x* 128) ;; These values are used when *thumbnail-size* 
(setq db-aip-ui::*thumbnail-user-size-y* 128) ;; is set to :user



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Use the SMODEL interface
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq db-aip-ui::*Awmc_val_use_smodel_interface* t)  ;; t or nil

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Customize the Graphical Structure Browser
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;(oli:sd-browser-exec-cmd g-browser::*structure-gbrowser* :SET-VISIBLE :Status nil)

