Commit 0b8be419 authored by Andy Cedilnik's avatar Andy Cedilnik
Browse files

ENH: Handle tcl scripts when Tk does not exits

parent c42609a6
......@@ -77,10 +77,16 @@ if { $myProcId != 0 } {
# set the default threshold, the Tcl script may change this
set threshold -1
if {[info commands wm] != ""} {
wm withdraw .
} else {
proc wm args {
puts "wm not implemented"
}
}
source $file
if {[info commands iren] == "iren"} {renWin Render}
# run the event loop quickly to map any tkwidget windows
wm withdraw .
update
# current directory
......
......@@ -30,13 +30,18 @@ set file [lindex $argv 0]
# set the default threshold, the Tcl script may change this
set threshold -1
if {[info commands wm] != ""} {
wm withdraw .
} else {
proc wm args {
puts "wm not implemented"
}
}
source $file
if {[info commands iren] == "iren"} {renWin Render}
# run the event loop quickly to map any tkwidget windows
wm withdraw .
update
# current directory
if {[rtTester IsValidImageSpecified] != 0} {
# look for a renderWindow ImageWindow or ImageViewer
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment