From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Wed, 20 Jun 2001 22:34:14 +0000 (+0000)
Subject: 	* tkcon.tcl (InitUI): moved wm protocol inside check to not run
X-Git-Tag: tkcon-2-2~5
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=8ed8549086f590a6c049e6ba961a119af42e96e0;p=tkcon

	* tkcon.tcl (InitUI): moved wm protocol inside check to not run
	under plugin.
---

diff --git a/ChangeLog b/ChangeLog
index 758052d..fc73521 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-20  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (InitUI): moved wm protocol inside check to not run
+	under plugin.
+
 2001-06-19  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl (dir): added fallback in generic dir command to not
diff --git a/tkcon.tcl b/tkcon.tcl
index d152ff4..d078108 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -509,8 +509,8 @@ proc ::tkcon::InitUI {title} {
     if {[string match . $root]} { set w {} } else { set w [toplevel $root] }
     if {!$PRIV(WWW)} {
 	wm withdraw $root
+	wm protocol $root WM_DELETE_WINDOW exit
     }
-    wm protocol $root WM_DELETE_WINDOW exit
     set PRIV(base) $w
 
     ## Text Console