OCC22250 Windows lost focus with DRAWEXE launched in 'virtual windows' mode
[occt.git] / src / DrawResources / DrawDefault
CommitLineData
7fd59977 1set tcl_interactive 1
2set tcl_precision 17
3
4if [info exists library] {
5 source [file join $library init.tcl]
6}
7set dir ""
8if { [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
25if { [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}