OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-21 10:13:43 +03:00
Code

0023739: Execution of Draw Harness command "test" failed

Browse Source
This commit is contained in:
kgv 2013-02-02 10:32:07 +04:00 committed by kgv
parent cf5195b88c
commit 723754e2a3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/DrawResources/TestCommands.tcl
View File

@ -1912,7 +1912,7 @@ proc load_data_file {file format shape} {
# procedure to get name of temporary directory, # procedure to get name of temporary directory,
# ensuring it is existing and writeable # ensuring it is existing and writeable
proc _get_temp_dir {} { proc _get_temp_dir {} {
global env global env tcl_platform
# check typical environment variables # check typical environment variables
foreach var {TempDir Temp Tmp} { foreach var {TempDir Temp Tmp} {
@ -1939,7 +1939,7 @@ proc _get_temp_dir {} {
} }
} }
foreach dir $paths { foreach dir $paths {
if { [file isdirectory $dir] && [file iswritable $dir] } { if { [file isdirectory $dir] && [file writable $dir] } {
return $dir return $dir
} }
} }