--- a/VariablePanel.st Wed Jan 24 14:25:52 1996 +0100
+++ b/VariablePanel.st Wed Jan 24 16:29:41 1996 +0100
@@ -203,6 +203,7 @@
v2 origin:0.0 @ 0.5 corner:1.0 @ 1.0.
v2 contents:'another text'.
p addSubView:v2.
+ v2 realize.
] ifFalse:[
b label:'show'.
v2 destroy.
@@ -364,7 +365,6 @@
super addSubView:aView.
realized ifTrue:[
self resizeSubviews.
- aView realize.
]
"Created: 17.1.1996 / 22:41:00 / cg"
@@ -966,33 +966,29 @@
|pos delta|
- self anyNonRelativeSubviews ifTrue:[
- "/ there is at least one subview without
- "/ relative origin/extent - setup all subviews
- "/ to spread evenly ...
+ "/ setup all subviews to spread evenly ...
- pos := 0.0.
- delta := 1.0 / (subViews size).
+ pos := 0.0.
+ delta := 1.0 / (subViews size).
- 1 to:(subViews size) do:[:index |
- |view|
+ 1 to:(subViews size) do:[:index |
+ |view|
- view := subViews at:index.
- orientation == #vertical ifTrue:[
- index == subViews size ifTrue:[
- view origin:(0.0 @ pos) corner:(1.0 @ 1.0)
- ] ifFalse:[
- view origin:(0.0 @ pos) corner:(1.0 @ (pos + delta))
- ].
+ view := subViews at:index.
+ orientation == #vertical ifTrue:[
+ index == subViews size ifTrue:[
+ view origin:(0.0 @ pos) corner:(1.0 @ 1.0)
] ifFalse:[
- index == subViews size ifTrue:[
- view origin:(pos @ 0.0) corner:(1.0 @ 1.0)
- ] ifFalse:[
- view origin:(pos @ 0.0) corner:((pos + delta) @ 1.0)
- ].
+ view origin:(0.0 @ pos) corner:(1.0 @ (pos + delta))
].
- pos := pos + delta
- ]
+ ] ifFalse:[
+ index == subViews size ifTrue:[
+ view origin:(pos @ 0.0) corner:(1.0 @ 1.0)
+ ] ifFalse:[
+ view origin:(pos @ 0.0) corner:((pos + delta) @ 1.0)
+ ].
+ ].
+ pos := pos + delta
]
! !
@@ -1043,5 +1039,5 @@
!VariablePanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.2 1996-01-24 13:25:52 ah Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.3 1996-01-24 15:29:41 ah Exp $'
! !