diff options
author | Daniel Kochmanski <dkochmanski@turtleware.eu> | 2017-06-09 18:24:11 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2017-06-09 18:24:11 +0200 |
commit | ff2dd0cecfc8bc67a4b6f6b4732e6d3fe641b6d5 (patch) | |
tree | 7838e2f2d0aeb3f215e5ac8517b2a88331ef14b2 | |
parent | c5b25bc52b774713184b64b8cfb9306209456cb4 (diff) | |
parent | 67f5b8f4fc65eb6eedbd9a77ecc56ea94e8bb693 (diff) |
Merge pull request #245 from gas2serra/issue150-biteration-8
Fix effective region in the repaint protocol. Closes #245.
-rw-r--r-- | Core/clim-basic/repaint.lisp | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Core/clim-basic/repaint.lisp b/Core/clim-basic/repaint.lisp index 479cccd8..6d2ed81a 100644 --- a/Core/clim-basic/repaint.lisp +++ b/Core/clim-basic/repaint.lisp @@ -52,9 +52,11 @@ (defmethod repaint-sheet ((sheet basic-sheet) region) (labels ((effective-native-region (mirrored-sheet child region) (if (eq mirrored-sheet child) - (region-intersection - (sheet-region mirrored-sheet) - region) + (transform-region + (%%sheet-native-transformation mirrored-sheet) + (region-intersection + (sheet-region mirrored-sheet) + region)) (effective-native-region mirrored-sheet (sheet-parent child) (transform-region |