From a64fdbcf2e80af46de0b9824cd7d9f3254cb1219 Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Sat, 15 Dec 2001 00:13:14 +0000 Subject: [PATCH] * tkcon.tcl: 'tkcon show' causes loss of focus on Windows, so an extra focus to the console was added. --- ChangeLog | 5 +++++ tkcon.tcl | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 6e1245d..9034187 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-12-14 Jeff Hobbs + + * tkcon.tcl: 'tkcon show' causes loss of focus on Windows, so an + extra focus to the console was added. + 2001-12-12 Jeff Hobbs * 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)] -- 2.23.0