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

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