diff options
-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 |