Changeset 1908 for branches/blt4

Timestamp:

Sep 10, 2010 8:23:41 AM (14 years ago)

Author:

gah

Message:

 

Location:

branches/blt4/gui/scripts

Files:

• bugreport.tcl (modified) (1 diff)
• scroller.tcl (modified) (1 diff)

branches/blt4/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
     }

branches/blt4/gui/scripts/scroller.tcl

@@ -267 +267 @@
         x {
             if {$state} {
-                if {![_lock active x]} {
-                    # grid $itk_component(xsbar) -row 1 -column 0 -sticky ew
-                    if {$col == 1} {
-                        grid $itk_component(xsbar) -row $row -column $col -sticky ew
-                    }
+                if {$col == 1} {
+                    grid $itk_component(xsbar) -row $row -column $col -sticky ew
                 }
             } else {
-                grid forget $itk_component(xsbar)
-                _lock set x
+                # handle the lock on the "forget" side, so scrollbar
+                # tends to appear, rather than disappear
+                if {![_lock active x]} {
+                    grid forget $itk_component(xsbar)
+                    _lock set x
+                }
             }
         }
         y {
             if {$state} {
-                if {![_lock active y]} {
-                    # grid $itk_component(ysbar) -row 0 -column 1 -sticky ns
-                    if {$row == 1} {
-                        grid $itk_component(ysbar) -row $row -column $col -sticky ns
-                    }
+                if {$row == 1} {
+                    grid $itk_component(ysbar) -row $row -column $col -sticky ns
                 }
             } else {
-                grid forget $itk_component(ysbar)
-                _lock set y
+                # handle the lock on the "forget" side, so scrollbar
+                # tends to appear, rather than disappear
+                if {![_lock active y]} {
+                    grid forget $itk_component(ysbar)
+                    _lock set y
+                }
             }
         }