From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Fri, 25 Aug 2006 18:04:51 +0000 (+0000)
Subject: 	* tkcon.tcl (tkcon): default wm protocol to hide tkcon when used
X-Git-Tag: tkcon-2-5~16
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=3e63b5243ea3d1c3236d1211a38088b682a3d586;p=tkcon

	* tkcon.tcl (tkcon): default wm protocol to hide tkcon when used
	in embedded context.
---

diff --git a/ChangeLog b/ChangeLog
index 070850a..e40b8e8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-25  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (tkcon): default wm protocol to hide tkcon when used
+	in embedded context.
+
 2006-08-23  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl: remove use of -exact in package require Tk
diff --git a/tkcon.tcl b/tkcon.tcl
index b6a757a..aa0d51b 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -3560,7 +3560,10 @@ proc tkcon {cmd args} {
 	sh* - dei* {
 	    ## 'show|deiconify' - deiconifies the console.
 	    if {![info exists PRIV(root)]} {
+		# We are likely in some embedded console configuration.
+		# Make default setup reflect that.
 		set PRIV(showOnStartup) 0
+		set PRIV(protocol) {tkcon hide}
 		set PRIV(root) .tkcon
 		set OPT(exec) ""
 	    }