blob: 2bf92ea3caff0eb854c0a65a7cd95b7efe21f096 (
plain)
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
|
set tcl_interactive 1
set tcl_precision 17
if [info exists library] {
source [file join $library init.tcl]
}
set dir ""
if { [info exists env(DRAWHOME) ] } {
set dir $env(DRAWHOME)
} else {
set dir [file dirname [info script]]
}
# san - 02/08/2002 - In Tcl8.3 it is no longer necessary to load Tix explicitly on WNT
#if { [info exists env(STATION)] } {
# if { $env(STATION) == "wnt" } {
# load tix8183.dll Tix
# }
#}
if { [file exist $dir] } {
source [file join $dir StandardCommands.tcl]
source [file join $dir StandardViews.tcl]
source [file join $dir Geometry.tcl]
set stationname $tcl_platform(platform)
if [info exists tk_version] {
source [file join $dir DrawTK.tcl]
# setup the icon for main window
if { ${stationname} == "windows" } {
wm iconbitmap . -default [file join $dir lamp.ico]
}
}
if [file readable DrawAppliInit] {
source DrawAppliInit
}
}
|
