Changeset 4457 for branches/1.3


Ignore:
Timestamp:
Jul 2, 2014 10:31:19 PM (6 years ago)
Author:
ldelgass
Message:

merge minor change from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.3/gui/scripts/bugreport.tcl

    r3330 r4457  
    8989        incr h 300
    9090        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}
    9292        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$y
     93        if {$y < 0} {set y 0}
     94
     95        wm geometry .bugreport +$x+$y
    9696        raise .bugreport
    9797        return
Note: See TracChangeset for help on using the changeset viewer.