--- a/VisualPart.st	Wed May 13 13:23:32 2009 +0200
+++ b/VisualPart.st	Wed May 13 13:24:43 2009 +0200
@@ -190,9 +190,12 @@
 
     (changedObject == originChannel 
     or:[ changedObject == extentChannel ]) ifTrue:[
-self container clearRectangle:self frame.
-self container invalidateRectangle:self frame repairNow:false.
-        "/ self invalidate.   "/ invalidate old region
+        "/ invalidate old region
+        self container 
+            clearRectangle:self frame;
+            invalidateRectangle:self frame repairNow:false.
+
+        "/ flush cached frame info.   
         frame := nil.
     ].
     self invalidate.
@@ -443,5 +446,5 @@
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.22 2009-05-13 11:23:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.23 2009-05-13 11:24:43 cg Exp $'
 ! !