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

	interactive wish.

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 }
 }