summaryrefslogtreecommitdiffstats
path: root/library/demos/knightstour.tcl
diff options
context:
space:
mode:
authordas <das>2009-04-10 16:34:55 (GMT)
committerdas <das>2009-04-10 16:34:55 (GMT)
commitadefa81216463dbc8e28602c5fccd17de3759e27 (patch)
tree88aca7f3f762d1bfcce103d8cdb85ab61ead5043 /library/demos/knightstour.tcl
parentcde3f5abce011188551a0ecf07930ff80631ef72 (diff)
downloadtk-adefa81216463dbc8e28602c5fccd17de3759e27.zip
tk-adefa81216463dbc8e28602c5fccd17de3759e27.tar.gz
tk-adefa81216463dbc8e28602c5fccd17de3759e27.tar.bz2
* library/demos/knightstour.tcl: fix knightstour demo not running from
interactive wish.
Diffstat (limited to 'library/demos/knightstour.tcl')
-rw-r--r--library/demos/knightstour.tcl14
1 files changed, 6 insertions, 8 deletions
diff --git a/library/demos/knightstour.tcl b/library/demos/knightstour.tcl
index 95ee6ca..b52e38f 100644
--- a/library/demos/knightstour.tcl
+++ b/library/demos/knightstour.tcl
@@ -245,13 +245,11 @@ proc CreateGUI {} {
tkwait window $dlg
}
-if {!$tcl_interactive} {
- if {![winfo exists .knightstour]} {
- if {![info exists widgetDemo]} { wm withdraw . }
- set r [catch [linsert $argv 0 CreateGUI] err]
- if {$r} {
- tk_messageBox -icon error -title "Error" -message $err
- }
- if {![info exists widgetDemo]} { exit $r }
+if {![winfo exists .knightstour]} {
+ if {![info exists widgetDemo]} { wm withdraw . }
+ set r [catch [linsert $argv 0 CreateGUI] err]
+ if {$r} {
+ tk_messageBox -icon error -title "Error" -message $err
}
+ if {![info exists widgetDemo]} { exit $r }
}