From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Sat, 15 Dec 2001 00:13:14 +0000 (+0000)
Subject: 	* tkcon.tcl: 'tkcon show' causes loss of focus on Windows, so an
X-Git-Tag: tkcon-2-4~36
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=a64fdbcf2e80af46de0b9824cd7d9f3254cb1219;p=tkcon

	* tkcon.tcl: 'tkcon show' causes loss of focus on Windows, so an
	extra focus to the console was added.
---

diff --git a/ChangeLog b/ChangeLog
index 6e1245d..9034187 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-14  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl: 'tkcon show' causes loss of focus on Windows, so an
+	extra focus to the console was added.
+
 2001-12-12  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl (EvalSocketEvent): changed EvalSocketClosed to only
diff --git a/tkcon.tcl b/tkcon.tcl
index c406f68..449f7fa 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -2736,6 +2736,7 @@ proc tkcon {cmd args} {
 	    ## 'show|deiconify' - deiconifies the console.
 	    wm deiconify $::tkcon::PRIV(root)
 	    raise $::tkcon::PRIV(root)
+	    focus -force $::tkcon::PRIV(console)
 	}
 	ti* {
 	    ## 'title' ?title? - gets/sets the console's title
@@ -3369,7 +3370,6 @@ proc idebug {opt args} {
 	    puts stderr "idebug at level \#$level: [lindex [info level -1] 0]"
 	    set tkcon [llength [info command tkcon]]
 	    if {$tkcon} {
-		tkcon show
 		tkcon master eval set ::tkcon::OPT(prompt2) \$::tkcon::OPT(prompt1)
 		tkcon master eval set ::tkcon::OPT(prompt1) \$::tkcon::OPT(debugPrompt)
 		set slave [tkcon set ::tkcon::OPT(exec)]