--- a/EnterBox.st	Fri May 19 18:41:01 1995 +0200
+++ b/EnterBox.st	Tue Jun 06 06:16:07 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.23 1995-05-07 00:16:00 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.24 1995-06-06 04:13:18 claus Exp $
 "
 !
 
@@ -288,14 +288,14 @@
 
     self addComponent:(enterField := self createEnterField).
     enterField 
-	origin:[0.0 @ (space2 + labelField preferedExtent y "height")]
+	origin:[0.0 @ (space2 + labelField preferredExtent y "height")]
 	extent:[1.0 @ enterField height].
     enterField 
 	leftInset:ViewSpacing; 
 	rightInset:ViewSpacing;
 	leaveAction:[:key | self okPressed].
 
-    enterField addDependent:self. "to get preferedExtent-changes"
+    enterField addDependent:self. "to get preferredExtent-changes"
 
     "
      forward keyboard input to the enterfield
@@ -325,7 +325,7 @@
     "sent if my enterbox thinks it needs more real-estate ..."
 
     changedObject == enterField ifTrue:[
-	something == #preferedExtent ifTrue:[
+	something == #preferredExtent ifTrue:[
 	    shown ifTrue:[self resize].
 	    ^ self
 	]
@@ -335,13 +335,13 @@
 
 !EnterBox methodsFor:'queries'!
 
-preferedExtent 
+preferredExtent 
     |wWanted hWanted wPanel vs2 min 
      labelPref enterPref panelPref|
 
-    panelPref := buttonPanel preferedExtent.
-    labelPref := labelField preferedExtent.
-    enterPref := enterField preferedExtent.
+    panelPref := buttonPanel preferredExtent.
+    labelPref := labelField preferredExtent.
+    enterPref := enterField preferredExtent.
     wWanted := (labelPref x max:enterPref x).
     wPanel := panelPref x.
     wPanel > wWanted ifTrue:[