--- 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