--- a/VariablePanel.st	Mon Aug 19 10:25:20 1996 +0200
+++ b/VariablePanel.st	Wed Aug 21 12:27:50 1996 +0200
@@ -21,7 +21,7 @@
 	category:'Views-Layout'
 !
 
-!VariablePanel class methodsFor:'documentation'!
+!VariablePanel  class methodsFor:'documentation'!
 
 copyright
 "
@@ -427,7 +427,7 @@
 "
 ! !
 
-!VariablePanel class methodsFor:'defaults'!
+!VariablePanel  class methodsFor:'defaults'!
 
 lightFormOn:aDisplay
     "use same handle as Scroller"
@@ -1135,7 +1135,9 @@
 !VariablePanel methodsFor:'private tableView protocol'!
 
 setupSubviewOrigins
-    "setup subviews origins (SV 16.1.95)"
+    "setup subviews origins 
+     if we only have relative extents 
+     (Variable Panels need relative origins and corners!!) (SV 16.1.95)"
 
     |x y e eX eY n "{ Class: SmallInteger }"|
 
@@ -1143,41 +1145,43 @@
 
     n := subViews size.
     1 to:n do:[:index |
-	|view|
+        |view|
 
-	view := subViews at:index.
-	e := view relativeExtent.
-	e notNil ifTrue:[
-	    view relativeExtent:nil.
-	    eX := e x.
-	    eY := e y.
-	    index == n ifTrue:[
-		view origin:(x @ y) corner:(1.0 @ 1.0)
-	    ] ifFalse:[
-		orientation == #vertical ifTrue:[
-		    view origin:(x @ y) corner:(1.0 @ (y+eY))
-		] ifFalse:[
-		    view origin:(x @ y) corner:((x+eX) @ 1.0)
-		].
-	    ].
-	    orientation == #vertical ifTrue:[
-		y := y + eY.
-	    ] ifFalse:[    
-		x := x + eX.
-	    ]
-	] ifFalse: [
-	    view origin:(x @ y).
-	    orientation == #vertical ifTrue:[
-		y := view relativeCorner y.
-	    ] ifFalse:[
-		x := view relativeCorner x.
-	    ]
-	].
-    ]   
+        view := subViews at:index.
+        e := view relativeExtent.
+        e notNil ifTrue:[
+            view relativeExtent:nil.
+            eX := e x.
+            eY := e y.
+            index == n ifTrue:[
+                view origin:(x @ y) corner:(1.0 @ 1.0)
+            ] ifFalse:[
+                orientation == #vertical ifTrue:[
+                    view origin:(x @ y) corner:(1.0 @ (y+eY))
+                ] ifFalse:[
+                    view origin:(x @ y) corner:((x+eX) @ 1.0)
+                ].
+            ].
+            orientation == #vertical ifTrue:[
+                y := y + eY.
+            ] ifFalse:[    
+                x := x + eX.
+            ]
+        ] ifFalse: [
+            view origin:(x @ y).
+            orientation == #vertical ifTrue:[
+                y := view relativeCorner y.
+            ] ifFalse:[
+                x := view relativeCorner x.
+            ]
+        ].
+    ]
+
+    "Modified: 21.8.1996 / 10:01:29 / stefan"
 ! !
 
-!VariablePanel class methodsFor:'documentation'!
+!VariablePanel  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.12 1996-05-29 14:40:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.13 1996-08-21 10:27:50 stefan Exp $'
 ! !