Commit | Line | Data |
---|---|---|
7fd59977 | 1 | set tcl_interactive 1 |
2 | set tcl_precision 17 | |
3 | ||
4 | if [info exists library] { | |
5 | source [file join $library init.tcl] | |
6 | } | |
7 | set dir "" | |
8 | if { [info exists env(DRAWHOME) ] } { | |
9 | set dir $env(DRAWHOME) | |
10 | } else { | |
87c58d4f K |
11 | if { [info exists env(CASROOT) ] } { |
12 | set dir [file join $env(CASROOT) src DrawResources] | |
13 | } else { | |
14 | puts " CASROOT is Mandatory to Run OpenCascade" | |
15 | } | |
7fd59977 | 16 | } |
17 | ||
18 | # san - 02/08/2002 - In Tcl8.3 it is no longer necessary to load Tix explicitly on WNT | |
19 | #if { [info exists env(STATION)] } { | |
20 | # if { $env(STATION) == "wnt" } { | |
21 | # load tix8183.dll Tix | |
22 | # } | |
23 | #} | |
24 | ||
25 | if { [file exist $dir] } { | |
87c58d4f K |
26 | source [file join $dir StandardCommands.tcl] |
27 | source [file join $dir StandardViews.tcl] | |
28 | source [file join $dir Geometry.tcl] | |
29 | ||
30 | set stationname $tcl_platform(platform) | |
31 | if [info exists tk_version] { | |
32 | source [file join $dir DrawTK.tcl] | |
33 | # setup the icon for main window | |
34 | if { ${stationname} == "windows" } { | |
7fd59977 | 35 | wm iconbitmap . -default [file join $dir lamp.ico] |
87c58d4f K |
36 | } |
37 | } | |
38 | if [file readable DrawAppliInit] { | |
39 | source DrawAppliInit | |
40 | } | |
7fd59977 | 41 | } |