VariablePanel.st
changeset 6518 7250c2e67839
parent 6463 0523d60b95a1
child 6633 b86193ed635b
--- a/VariablePanel.st	Tue Jan 08 18:27:21 2019 +0100
+++ b/VariablePanel.st	Sat Jan 12 15:24:51 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -2225,6 +2223,9 @@
     pos := 0.0. 
     subViews := self subViews.
 
+    (subViews conform:[:v | v relativeCorner notNil]) ifFalse:[
+        self setupSubviews.
+    ].        
     orientation == #vertical ifTrue:[
         realRelativeSizes := subViews collect:[:v | v relativeCorner y - v relativeOrigin y].
     ] ifFalse:[
@@ -2247,7 +2248,8 @@
     ].
     self resizeSubviews.
 
-    "Modified: 28.1.1997 / 17:56:20 / cg"
+    "Modified: / 28-01-1997 / 17:56:20 / cg"
+    "Modified: / 12-01-2019 / 15:24:29 / Claus Gittinger"
 !
 
 handleLabelAt:hIndex