Posted to tcl by emiliano at Tue Dec 08 02:03:11 GMT 2009view pretty
--- sizegrip.tcl 2008-10-28 18:02:03.000000000 -0200 +++ sizegrip.tcl.patched 2009-12-05 15:57:03.000000000 -0300 @@ -31,6 +31,8 @@ resizeX 1 resizeY 1 toplevel {} + _x 0 + _y 0 } } @@ -75,6 +77,8 @@ set State(width) $width set State(height) $height set State(pressed) 1 + set State(_x) $_x + set State(_y) $_y } proc ttk::sizegrip::Drag {W X Y} { @@ -90,7 +94,7 @@ } if {$w <= 0} { set w 1 } if {$h <= 0} { set h 1 } - wm geometry $State(toplevel) ${w}x${h} + wm geometry $State(toplevel) ${w}x${h}+$State(_x)+$State(_y) } proc ttk::sizegrip::Release {W X Y} {