diff options
author | jenglish <jenglish@flightlab.com> | 2009-12-23 04:26:59 (GMT) |
---|---|---|
committer | jenglish <jenglish@flightlab.com> | 2009-12-23 04:26:59 (GMT) |
commit | 51725279aebd048e6ddfefb467cd28529b5b4be4 (patch) | |
tree | 2c1feb8d5551abb7e337fb3619faee56bf95ca95 /library/ttk/sizegrip.tcl | |
parent | fedcfc853595da4ca58ce54cff19df611a48b9be (diff) | |
download | tk-51725279aebd048e6ddfefb467cd28529b5b4be4.zip tk-51725279aebd048e6ddfefb467cd28529b5b4be4.tar.gz tk-51725279aebd048e6ddfefb467cd28529b5b4be4.tar.bz2 |
ttk::sizegrip: Patch to avoid bizarro behavior under compiz [Bug 2912356].
Diffstat (limited to 'library/ttk/sizegrip.tcl')
-rw-r--r-- | library/ttk/sizegrip.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/library/ttk/sizegrip.tcl b/library/ttk/sizegrip.tcl index a191b1f..ec0828a 100644 --- a/library/ttk/sizegrip.tcl +++ b/library/ttk/sizegrip.tcl @@ -1,5 +1,5 @@ # -# $Id: sizegrip.tcl,v 1.3 2008/10/28 20:02:03 jenglish Exp $ +# $Id: sizegrip.tcl,v 1.4 2009/12/23 04:26:59 jenglish Exp $ # # Sizegrip widget bindings. # @@ -55,7 +55,7 @@ proc ttk::sizegrip::Press {W X Y} { # If a negative X or Y position was specified for [wm geometry], # just bail out -- there's no way to handle this cleanly. # - if {[scan [wm geometry $top] "%dx%d+%d+%d" width height _x _y] != 4} { + if {[scan [wm geometry $top] "%dx%d+%d+%d" width height x y] != 4} { return; } @@ -74,6 +74,8 @@ proc ttk::sizegrip::Press {W X Y} { set State(pressY) $Y set State(width) $width set State(height) $height + set State(x) $x + set State(y) $y set State(pressed) 1 } @@ -90,7 +92,8 @@ proc ttk::sizegrip::Drag {W X Y} { } if {$w <= 0} { set w 1 } if {$h <= 0} { set h 1 } - wm geometry $State(toplevel) ${w}x${h} + set x $State(x) ; set y $State(y) + wm geometry $State(toplevel) ${w}x${h}+${x}+${y} } proc ttk::sizegrip::Release {W X Y} { |