Changeset 4457 for branches/1.3/gui/scripts/bugreport.tcl
- Timestamp:
- Jul 2, 2014, 10:31:19 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/bugreport.tcl
r3330 r4457 89 89 incr h 300 90 90 set x [expr {([winfo screenwidth .bugreport]-$w)/2}] 91 if {$x < 0} {set x "+0"} else {set x "+$x"}91 if {$x < 0} {set x 0} 92 92 set y [expr {([winfo screenheight .bugreport]-$h)/2}] 93 if {$y < 0} {set y "-0"} else {set y "+$y"}94 95 wm geometry .bugreport $x$y93 if {$y < 0} {set y 0} 94 95 wm geometry .bugreport +$x+$y 96 96 raise .bugreport 97 97 return
Note: See TracChangeset
for help on using the changeset viewer.