OptionBox.st
changeset 130 338e856bddc9
parent 119 59758ff5b841
child 131 208fa92f434d
--- 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.