* library/demos/knightstour.tcl: fix knightstour demo not running from

	interactive wish.

2 files changed, 9 insertions, 8 deletions

diff --git a/ChangeLog b/ChangeLog
index ade45c0..14b15a1 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 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 }
 }