1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
# This script is setup by the toplevel configure shell script at
# installation time
global src_boot
global ProcessName
set gisbase $env(GISBASE)
set default_panel_path "$gisbase/etc/nviz2.2/scripts"
set bit_map_path "$gisbase/etc/nviz2.2/bitmaps"
set nv_path "$gisbase/etc/nviz2.2"
#Get ProcessName varaible set from nviz2.2_script
set ProcessName $env(NV_processname)
# Set up auto_path directories
if {[catch {set env(Nviz_PanelPath)} user_path]} then {
set user_path [list]
} else {
set user_path [split $user_path :]
}
# If the -path option was used then append that directory also
if {[catch {set NvizAltPath}] == 0} then {
global NvizAltPath
lappend user_path $NvizAltPath
}
if {[lsearch -exact $user_path "$default_panel_path"] == -1} then {
set user_path [linsert $user_path -1 "$default_panel_path"]
}
foreach i $user_path {
lappend auto_path $i
}
# add the execution directory to the path
set env(PATH) "$default_panel_path:$nv_path:$env(PATH)"
# Override bindings for tk widgets
source $src_boot/etc/nviz2.2/scripts/extra_bindings.tcl
##########################################################################
# Resources
##########################################################################
option add *background gray90 widgetDefault
option add *activeBackground gray80 widgetDefault
option add *font -*-helvetica-medium-r-normal-*-12-*-iso8859-1 widgetDefault
option add *Label*font -*-helvetica-bold-r-normal-*-12-*-iso8859-1 widgetDefault
option add *Radiobutton*relief flat
option add *Checkbutton*relief flat
option add *Scrollbar*troughcolor gray90 widgetDefault
option add *Scrollbar*background gray90 widgetDefault
option add *Scrollbar*activeBackground gray99 widgetDefault
|
