From 8ed8549086f590a6c049e6ba961a119af42e96e0 Mon Sep 17 00:00:00 2001
From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Wed, 20 Jun 2001 22:34:14 +0000
Subject: [PATCH] 	* tkcon.tcl (InitUI): moved wm protocol inside check
 to not run 	under plugin.

---
 ChangeLog | 5 +++++
 tkcon.tcl | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

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