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} {