# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1402407012 -7200
# Node ID 2ac5aaf7d828fb69ddc46a61311b14ce27d87793
# Parent  6611c207243f14c02005ff8c6484a901f25db751
class: NoteBookView
changed: #redrawX:y:width:height: (send #deviceClippingRectangle: instead of #clippingBounds:)
clipping bug fixed (now really!)
was passing a deviceClipRect as logical clipRect

diff -r 6611c207243f -r 2ac5aaf7d828 NoteBookView.st
--- a/NoteBookView.st	Tue Jun 10 13:54:39 2014 +0200
+++ b/NoteBookView.st	Tue Jun 10 15:30:12 2014 +0200
@@ -1720,7 +1720,7 @@
              and:[aTab intersects:damage]]
             ) ifTrue:[
                 clip notNil ifTrue:[
-                    self clippingBounds:clip.
+                    self deviceClippingRectangle:clip. "/ was: self clippingBounds:clip.
                     clip := nil.
                 ].
                 self redrawTab:aTab.
@@ -1734,7 +1734,7 @@
     tabLayout := self computeLayoutForTab:selectedTab.
     (tabLayout intersects:damage) ifTrue:[
         clip notNil ifTrue:[
-            self clippingBounds:clip.
+            self deviceClippingRectangle:clip. "/ was: self clippingBounds:clip.
             clip := nil.
         ].
 "/        selectedLayout := selectedTab layout.
@@ -3784,10 +3784,10 @@
 !NoteBookView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.184 2014-03-25 18:02:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.185 2014-06-10 13:30:12 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.184 2014-03-25 18:02:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/NoteBookView.st,v 1.185 2014-06-10 13:30:12 cg Exp $'
 ! !