--- a/VisualPart.st	Mon May 11 08:35:25 2009 +0200
+++ b/VisualPart.st	Mon May 11 10:14:54 2009 +0200
@@ -141,6 +141,15 @@
 
     frame := newBounds.
 
+!
+
+possiblyInvalidate
+    container notNil ifTrue:[
+        self computeBoundingBox.
+        frame notNil ifTrue:[
+            container invalidate:(frame insetBy:-2).
+        ]
+    ].
 ! !
 
 !VisualPart methodsFor:'view protocol mimicri'!
@@ -229,21 +238,12 @@
 !
 
 geometryLayout:newLayoutOrNil
-    container notNil ifTrue:[
-        frame notNil ifTrue:[
-            container invalidate:(frame insetBy:-2).
-        ]
-    ].
+    self possiblyInvalidate.
 
     frame := nil.
     layout := newLayoutOrNil.
 
-    container notNil ifTrue:[
-        self computeBoundingBox.
-        frame notNil ifTrue:[
-            container invalidate:(frame insetBy:-2).
-        ]
-    ].
+    self possiblyInvalidate.
 !
 
 invalidate
@@ -380,5 +380,5 @@
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.19 2009-05-11 06:35:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.20 2009-05-11 08:14:54 cg Exp $'
 ! !