From Tom Tromey (tromey@redhat.com):

	* library/managedwin.itb (reveal): We actually do want to force
	the focus for Windows.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index d8d78b1..ba74716 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,9 @@
+2001-04-10  Keith Seitz  <keiths@cygnus.com>
+
+       From Tom Tromey (tromey@redhat.com):
+       * library/managedwin.itb (reveal): We actually do want to force
+       the focus for Windows.
+
 2001-04-09  Martin M. Hunt  <hunt@redhat.com>
 
        * library/managedwin.itb (ManagedWin::reveal): After

diff --git a/gdb/gdbtk/library/managedwin.itb b/gdb/gdbtk/library/managedwin.itb
index b611e69..43664bd 100644 (file)
--- a/gdb/gdbtk/library/managedwin.itb
+++ b/gdb/gdbtk/library/managedwin.itb
@@ -85,6 +85,13 @@ body ManagedWin::reveal {} {
   # `focus $top'.  However, this has no useful effect -- it just
   # resets the subwindow of $top which has the `potential' focus.
   # This can actually be confusing to the user.
+
+  # NOT for Windows, though. Without the focus, we get, eg. a
+  # register window on top of the source window, but the source window
+  # will have the focus. This is not the proper model for Windows.
+  if {$::tcl_platform(platform) == "windows"} {
+    focus -force [focus -lastfor $top]
+  }
 }
 
 # ------------------------------------------------------------