Changeset 4457 for branches/1.3/gui/scripts

Timestamp:

Jul 2, 2014 10:31:19 PM (10 years ago)

Author:

ldelgass

Message:

merge minor change from trunk

File:

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

branches/1.3/gui/scripts/bugreport.tcl

@@ -89 +89 @@
         incr h 300
         set x [expr {([winfo screenwidth .bugreport]-$w)/2}]
-        if {$x < 0} {set x "+0"} else {set x "+$x"}
+        if {$x < 0} {set x 0}
         set y [expr {([winfo screenheight .bugreport]-$h)/2}]
-        if {$y < 0} {set y "-0"} else {set y "+$y"}
-
-        wm geometry .bugreport $x$y
+        if {$y < 0} {set y 0}
+
+        wm geometry .bugreport +$x+$y
         raise .bugreport
         return