--- a/VariablePanel.st	Tue Feb 25 14:03:55 1997 +0100
+++ b/VariablePanel.st	Tue Feb 25 14:04:47 1997 +0100
@@ -573,8 +573,17 @@
     "a view is added; adjust other subviews sizes"
 
     super addSubView:aView.
+
+"/    (aView relativeOrigin isNil 
+"/    or:[aView relativeExtent isNil and:[aView relativeCorner isNil]]) ifTrue:[
+"/        aView geometryLayout:nil.
+"/        aView origin:0.0@0.0.
+"/        aView extent:1.0@0.5.
+"/        self setupSubviews
+"/    ].
+
     realized ifTrue:[
-	self resizeSubviews.
+        self resizeSubviews.
     ]
 
     "Created: 17.1.1996 / 22:41:00 / cg"
@@ -614,9 +623,10 @@
 
     super removeSubView:aView.
     shown ifTrue:[
-	(superView isNil or:[superView shown]) ifTrue:[
-	    self setupSubviews
-	]
+        (superView isNil or:[superView shown]) ifTrue:[
+            self setupSubviews.
+            self resizeSubviews.
+        ]
     ]
 ! !
 
@@ -1339,6 +1349,7 @@
 
     subViews := self subViews.
     nSubViews := subViews size.
+    nSubViews == 0 ifTrue:[^ self].
 
     pos := 0.0. 
     delta := 1.0 / nSubViews.
@@ -1419,5 +1430,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.22 1997-01-28 17:05:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.23 1997-02-25 13:04:47 ca Exp $'
 ! !