OCC22250 Windows lost focus with DRAWEXE launched in 'virtual windows' mode
[occt.git] / src / DrawResources / DrawDefault
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 {
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   }
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] } { 
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" } {
35       wm iconbitmap . -default [file join $dir lamp.ico]
36     }
37   }
38   if [file readable DrawAppliInit] {
39     source DrawAppliInit
40   }
41