From 3e63b5243ea3d1c3236d1211a38088b682a3d586 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Fri, 25 Aug 2006 18:04:51 +0000 Subject: [PATCH] * tkcon.tcl (tkcon): default wm protocol to hide tkcon when used in embedded context. --- ChangeLog | 5 +++++ tkcon.tcl | 3 +++ 2 files changed, 8 insertions(+) diff --git a/ChangeLog b/ChangeLog index 070850a..e40b8e8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-08-25 Jeff Hobbs + + * tkcon.tcl (tkcon): default wm protocol to hide tkcon when used + in embedded context. + 2006-08-23 Jeff Hobbs * 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) "" } -- 2.23.0