summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2009-04-10 16:34:46 (GMT)
committerdas <das>2009-04-10 16:34:46 (GMT)
commit5c94825d097ef13059746ef51cf7d3567e5e5c05 (patch)
treec5bca9be43146256e397367dc346d835ec11fc0c
parent31a39a76334a12ed604b7a3fc1f1c939251d22cf (diff)
downloadtk-5c94825d097ef13059746ef51cf7d3567e5e5c05.zip
tk-5c94825d097ef13059746ef51cf7d3567e5e5c05.tar.gz
tk-5c94825d097ef13059746ef51cf7d3567e5e5c05.tar.bz2
* library/demos/knightstour.tcl: fix knightstour demo not running from
interactive wish.
-rw-r--r--ChangeLog3
-rw-r--r--library/demos/knightstour.tcl16
2 files changed, 9 insertions, 10 deletions
diff --git a/ChangeLog b/ChangeLog
index 1560077..82ac993 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2008-04-10 Daniel Steffen <das@users.sourceforge.net>
+ * library/demos/knightstour.tcl: fix knightstour demo not running from
+ interactive wish.
+
* library/console.tcl (::tk::ConsoleInit): remove redundant TkAqua
Quit menu item.
diff --git a/library/demos/knightstour.tcl b/library/demos/knightstour.tcl
index 89e294b..73ca3a3 100644
--- a/library/demos/knightstour.tcl
+++ b/library/demos/knightstour.tcl
@@ -258,15 +258,11 @@ proc CreateGUI {} {
tkwait window $dlg
}
-if {$tcl_interactive} {
- if {[info exists widgetDemo]} { CreateGUI }
-} else {
- 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 }
}