OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-09-03 14:10:33 +03:00
Code Activity

OCC22250 Windows lost focus with DRAWEXE launched in 'virtual windows' mode

Browse Source
This commit is contained in:
KGV
2011-04-28 15:47:42 +00:00
committed by bugmaster
parent 1aeb969a54
commit 87c58d4f03
2 changed files with 72 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
src/DrawResources/DrawDefault
View File

@@ -8,11 +8,11 @@ set dir ""
if { [info exists env(DRAWHOME) ] } {
set dir $env(DRAWHOME)
} else {
if { [info exists env(CASROOT) ] } {
set dir [file join $env(CASROOT) src DrawResources]
} else {
puts " CASROOT is Mandatory to Run OpenCascade"
}
if { [info exists env(CASROOT) ] } {
set dir [file join $env(CASROOT) src DrawResources]
} else {
puts " CASROOT is Mandatory to Run OpenCascade"
}
}
# san - 02/08/2002 - In Tcl8.3 it is no longer necessary to load Tix explicitly on WNT
@@ -23,15 +23,19 @@ if { [info exists env(DRAWHOME) ] } {
#}
if { [file exist $dir] } {
source [file join $dir StandardCommands.tcl]
source [file join $dir StandardViews.tcl]
source [file join $dir Geometry.tcl]
if [info exists tk_version] {source [file join $dir DrawTK.tcl]}
if [file readable DrawAppliInit] {
source DrawAppliInit
}
set stationname $tcl_platform(platform)
if { ${stationname} == "windows" } {
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
}
}