- Timestamp:
- Oct 4, 2013 11:29:57 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/bugreport.tcl
r3996 r3997 146 146 set w [winfo reqwidth .bugreport] 147 147 set h [winfo reqheight .bugreport] 148 set x [expr {([winfo screenwidth .bugreport]-$w)/2}] 148 set rootx [winfo rootx .] 149 set rooty [winfo rooty .] 150 151 set x [expr {($rootx-$w)/2}] 149 152 if {$x < 0} {set x 0} 150 set y [expr {( [winfo screenheight .bugreport]-$h)/2}]153 set y [expr {($rooty-$h)/2}] 151 154 if {$y < 0} {set y 0} 152 155
Note: See TracChangeset
for help on using the changeset viewer.