* managedwin.itb (ManagedWin::reveal): Don't set focus.

diff --git a/gdb/gdbtk/library/ChangeLog b/gdb/gdbtk/library/ChangeLog
index 7c0a890..85ba088 100644 (file)
--- a/gdb/gdbtk/library/ChangeLog
+++ b/gdb/gdbtk/library/ChangeLog
@@ -1,5 +1,7 @@
 2000-12-07  Tom Tromey  <tromey@redhat.com>
 
+       * managedwin.itb (ManagedWin::reveal): Don't set focus.
+
        * tclIndex: Rebuilt.
        * interface.tcl (set_exe_name): Save session.
        (gdbtk_quit_check): Save session.

diff --git a/gdb/gdbtk/library/managedwin.itb b/gdb/gdbtk/library/managedwin.itb
index 1bda9f5..7eb23c5 100644 (file)
--- a/gdb/gdbtk/library/managedwin.itb
+++ b/gdb/gdbtk/library/managedwin.itb
@@ -40,11 +40,12 @@ body ManagedWin::reveal {} {
   set top [winfo toplevel [namespace tail $this]]
   raise $top
   wm deiconify $top
-  
-  # I don't understand this next line and no one commented it, so it's gone.
-  #focus -force [focus -lastfor $top]
-  
-  focus $top
+
+  # There used to be a `focus -force' here, but using -force is
+  # unfriendly, so it was removed.  It was then replaced with a simple
+  # `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.
 }
 
 body ManagedWin::restart {} {