--- a/VariablePanel.st	Tue Oct 29 11:18:16 2002 +0100
+++ b/VariablePanel.st	Tue Oct 29 22:28:25 2002 +0100
@@ -849,6 +849,10 @@
 
 !VariablePanel methodsFor:'accessing'!
 
+isHorizontal
+    ^ orientation == #horizontal
+!
+
 orientation
     "return my orientation; either #horizontal or #vertical"
 
@@ -875,6 +879,32 @@
     ]
 
     "Modified: 29.5.1996 / 16:22:35 / cg"
+!
+
+relativeCorners
+    ^ self subViews 
+        collect:[:eachView | 
+                self isHorizontal ifTrue:[
+                    eachView relativeCorner x
+                ] ifFalse:[
+                    eachView relativeCorner y
+                ]
+        ]
+!
+
+relativeCorners:aCollection
+    |pos|
+
+    pos := 0.0.
+    self subViews with:aCollection 
+        do:[:eachView :eachCorner |
+            self isHorizontal ifTrue:[
+                eachView origin:(pos @ 0.0) corner:(eachCorner @ 1.0)
+            ] ifFalse:[
+                eachView origin:(0.0 @ pos) corner:(1.0 @ eachCorner)
+            ].
+            pos := eachCorner
+        ]
 ! !
 
 !VariablePanel methodsFor:'accessing-look'!
@@ -2300,5 +2330,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.81 2002-10-01 08:17:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.82 2002-10-29 21:28:25 cg Exp $'
 ! !