From adefa81216463dbc8e28602c5fccd17de3759e27 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Fri, 10 Apr 2009 16:34:55 +0000
Subject: 	* library/demos/knightstour.tcl: fix knightstour demo not
 running from 	interactive wish.

---
 ChangeLog                     |  3 +++
 library/demos/knightstour.tcl | 14 ++++++--------
 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 }
 }
-- 
cgit v0.12