* tkcon.tcl (tkcon): default wm protocol to hide tkcon when used

	in embedded context.

diff --git a/ChangeLog b/ChangeLog
index 070850aa2d5c70cf3e81ce1d986921f34456321e..e40b8e8854961d434d82be76fbd059f68e92c63d 100644 (file)
--- 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 b6a757add0786f55af0327adfaeac414be33e3b6..aa0d51b15a2bf032d92031bdc5f10c382d961d8c 100755 (executable)
--- 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) ""
            }