--- a/OptionBox.st Fri May 19 18:41:01 1995 +0200
+++ b/OptionBox.st Tue Jun 06 06:16:07 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.16 1995-05-03 00:36:41 claus Exp $
+$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.17 1995-06-06 04:14:35 claus Exp $
'!
!OptionBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.16 1995-05-03 00:36:41 claus Exp $
+$Header: /cvs/stx/stx/libwidg/OptionBox.st,v 1.17 1995-06-06 04:14:35 claus Exp $
"
!
@@ -241,9 +241,12 @@
textLabel origin:((ViewSpacing + formLabel width + ViewSpacing) @ ViewSpacing).
buttonPanel := HorizontalPanelView origin:(0.0 @ 1.0) corner:(1.0 @ 1.0) in:self.
- buttonPanel bottomInset:ViewSpacing;
- topInset:(font height + ViewSpacing * 2) negated.
- buttonPanel borderWidth:0; layout:#fitSpace.
+ buttonPanel
+ bottomInset:ViewSpacing;
+ topInset:(font height + ViewSpacing * 2) negated.
+ buttonPanel
+ borderWidth:0;
+ horizontalLayout:#fitSpace.
nButt := buttons size.
@@ -305,18 +308,18 @@
^ self extent // 2
!
-preferedExtent
+preferredExtent
"return a size to make everything fit into myself"
|w w1 w2 h maxH prefPanel|
w1 := ViewSpacing + formLabel width + ViewSpacing + textLabel width + ViewSpacing.
- prefPanel := buttonPanel preferedExtent.
+ prefPanel := buttonPanel preferredExtent.
w := w1 max:prefPanel x.
"/ maxH := 0.
"/ buttons do:[:button |
-"/ maxH := maxH max:(button preferedExtent y)
+"/ maxH := maxH max:(button preferredExtent y)
"/ ].
maxH := prefPanel y.