* 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 6e1245dfa6724c366356d749e14dfd25be18d466..903418722561055ec8a96bf8803deb681146c23e 100644 (file)
--- 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 c406f6805c0b15881de78f910c0a0a2a214a2ba3..449f7fa93263e78987389ff7f86f8b09ff52d587 100755 (executable)
--- 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)]