Posted to tcl by emiliano at Tue Dec 08 02:03:11 GMT 2009view raw

  1. --- sizegrip.tcl 2008-10-28 18:02:03.000000000 -0200
  2. +++ sizegrip.tcl.patched 2009-12-05 15:57:03.000000000 -0300
  3. @@ -31,6 +31,8 @@
  4. resizeX 1
  5. resizeY 1
  6. toplevel {}
  7. + _x 0
  8. + _y 0
  9. }
  10. }
  11.  
  12. @@ -75,6 +77,8 @@
  13. set State(width) $width
  14. set State(height) $height
  15. set State(pressed) 1
  16. + set State(_x) $_x
  17. + set State(_y) $_y
  18. }
  19.  
  20. proc ttk::sizegrip::Drag {W X Y} {
  21. @@ -90,7 +94,7 @@
  22. }
  23. if {$w <= 0} { set w 1 }
  24. if {$h <= 0} { set h 1 }
  25. - wm geometry $State(toplevel) ${w}x${h}
  26. + wm geometry $State(toplevel) ${w}x${h}+$State(_x)+$State(_y)
  27. }
  28.  
  29. proc ttk::sizegrip::Release {W X Y} {