2000-03-10 James Ingham <jingham@leda.cygnus.com>

	* util.tcl (keep_raised): For some reason raising a window, then
	deiconifying it is MUCH faster on "e" & WindowMaker under XFree.
	Go figure.  Other WM's don't seem to care, so do it this way...
	* managedwin.itb (ManagedWin::reveal): Ditto...

diff --git a/gdb/gdbtk/library/ChangeLog b/gdb/gdbtk/library/ChangeLog
index 9a65d40..5224104 100644 (file)
--- a/gdb/gdbtk/library/ChangeLog
+++ b/gdb/gdbtk/library/ChangeLog
@@ -1,3 +1,10 @@
+2000-03-10  James Ingham  <jingham@leda.cygnus.com>
+
+       * util.tcl (keep_raised): For some reason raising a window, then
+       deiconifying it is MUCH faster on "e" & WindowMaker under XFree.  
+       Go figure.  Other WM's don't seem to care, so do it this way...
+       * managedwin.itb (ManagedWin::reveal): Ditto...
+
 2000-03-10  Elena Zannoni  <ezannoni@kwikemart.cygnus.com>
 
        * srcbar.tcl (do_attach): Just call gdbtk_attach_native.

diff --git a/gdb/gdbtk/library/managedwin.itb b/gdb/gdbtk/library/managedwin.itb
index 3dbb635..bdecd10 100644 (file)
--- a/gdb/gdbtk/library/managedwin.itb
+++ b/gdb/gdbtk/library/managedwin.itb
@@ -31,13 +31,13 @@ body ManagedWin::reveal {} {
   update idletasks
   
   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
-  raise $top
 }
 
 body ManagedWin::restart {} {

diff --git a/gdb/gdbtk/library/util.tcl b/gdb/gdbtk/library/util.tcl
index dc8007d..f2e0f6e 100644 (file)
--- a/gdb/gdbtk/library/util.tcl
+++ b/gdb/gdbtk/library/util.tcl
@@ -30,8 +30,8 @@
 # A helper procedure to keep a window on top.
 proc keep_raised {top} {
   if {[winfo exists $top]} {
-    wm deiconify $top
     raise $top
+    wm deiconify $top
     after 1000 [info level 0]
   }
 }