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

	under plugin.

diff --git a/ChangeLog b/ChangeLog
index 758052d3b368515fda0a5472123a78bdb50494ef..fc7352131892acb280b7a2ae909b8688f9036401 100644 (file)
--- 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 d152ff4f4825ed1a2713e37cf1b95d26e9fb3c19..d078108cd17b40b56cb9609544f3227528ea8be2 100755 (executable)
--- 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