Changeset 1906 for trunk

Timestamp:

Sep 7, 2010 8:04:11 PM (14 years ago)

Author:

mmc

Message:

Fixed the bug report dialog so that it recenters itself on the screen
after you click on "Show Details...". This makes the dialog a little
taller, and in some cases it was falling off the bottom of the screen.
It now recenters itself, and if it's too tall, it shows the buttons
on the bottom.

File:

• trunk/gui/scripts/bugreport.tcl (modified) (1 diff)

trunk/gui/scripts/bugreport.tcl

@@ -81 +81 @@
         pack .bugreport.comments -after .bugreport.details \
             -expand yes -fill both -padx 8 -pady {0 8}
+
+        update idletasks
+        set w [winfo reqwidth .bugreport]
+        set h [winfo reqheight .bugreport]
+        set x [expr {([winfo screenwidth .bugreport]-$w)/2}]
+        if {$x < 0} {set x "+0"} else {set x "+$x"}
+        set y [expr {([winfo screenheight .bugreport]-$h)/2}]
+        if {$y < 0} {set y "-0"} else {set y "+$y"}
+
+        wm geometry .bugreport $x$y
+        raise .bugreport
         return
     }