--- a/VariablePanel.st	Wed Feb 23 18:23:15 2000 +0100
+++ b/VariablePanel.st	Wed Feb 23 18:24:38 2000 +0100
@@ -1625,8 +1625,8 @@
         ]
     ]
 
-    "Modified: 28.1.1997 / 17:55:03 / cg"
-    "Modified: 22.3.1997 / 01:02:21 / stefan"
+    "Modified: / 22.3.1997 / 01:02:21 / stefan"
+    "Modified: / 23.2.2000 / 18:32:37 / cg"
 !
 
 restoreSubViewRatios
@@ -1669,26 +1669,29 @@
     delta := 1.0 / nSubViews.
 
     1 to:nSubViews do:[:index |
-        |view|
+        |view org corn|
 
         view := subViews at:index.
         orientation == #vertical ifTrue:[
+            org := (0.0 @ pos). 
             index == subViews size ifTrue:[
-                view origin:(0.0 @ pos) corner:(1.0 @ 1.0)
+                corn := (1.0 @ 1.0)
             ] ifFalse:[
-                view origin:(0.0 @ pos) corner:(1.0 @ (pos + delta))
+                corn := (1.0 @ (pos + delta))
             ].
         ] ifFalse:[
+            org := (pos @ 0.0).
             index == subViews size ifTrue:[
-                view origin:(pos @ 0.0) corner:(1.0 @ 1.0)
+                corn := (1.0 @ 1.0)
             ] ifFalse:[
-                view origin:(pos @ 0.0) corner:((pos + delta) @ 1.0)
+                corn := ((pos + delta) @ 1.0)
             ].
         ].
+        view origin:org corner:corn.
         pos := pos + delta
     ]
 
-    "Modified: 28.1.1997 / 17:56:20 / cg"
+    "Modified: / 23.2.2000 / 18:14:01 / cg"
 ! !
 
 !VariablePanel methodsFor:'private tableView protocol'!
@@ -1744,5 +1747,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.57 2000-02-08 17:57:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.58 2000-02-23 17:24:38 cg Exp $'
 ! !