--- a/VisualPart.st	Sun May 10 14:31:53 2009 +0200
+++ b/VisualPart.st	Sun May 10 14:32:26 2009 +0200
@@ -169,7 +169,7 @@
 
     layout notNil ifTrue:[
         self bounds:(layout 
-                        rectangleRelativeTo:container bounds
+                        rectangleRelativeTo:(0@0 extent:container extent "container bounds")
                         preferred:self preferredBounds).
     ].
     "/ self invalidate.
@@ -213,18 +213,7 @@
 !
 
 geometryLayout:newLayoutOrNil
-    |container newFrame|
-
-    newLayoutOrNil notNil ifTrue:[
-        container := self container.
-        container notNil ifTrue:[
-            newFrame := newLayoutOrNil 
-                        rectangleRelativeTo:container bounds
-                        preferred:self preferredBounds.
-
-            self bounds:newFrame.
-        ].
-    ].
+    frame := nil.
     layout := newLayoutOrNil.
 !
 
@@ -360,5 +349,5 @@
 !VisualPart class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.16 2009-05-10 11:01:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualPart.st,v 1.17 2009-05-10 12:32:26 cg Exp $'
 ! !