--- a/EnterBox.st	Mon Apr 22 23:42:27 1996 +0200
+++ b/EnterBox.st	Tue Apr 23 00:20:42 1996 +0200
@@ -433,6 +433,8 @@
 !EnterBox methodsFor:'queries'!
 
 preferredExtent 
+    "compute the boxes preferredExtent from the components' sizes"
+
     |wWanted hWanted wPanel vs2 min 
      labelPref enterPref panelPref|
 
@@ -442,21 +444,23 @@
     wWanted := (labelPref x max:enterPref x).
     wPanel := panelPref x.
     wPanel > wWanted ifTrue:[
-	wWanted := wPanel
+        wWanted := wPanel
     ].
 
     hWanted := labelPref y + enterPref y +
-	       (ViewSpacing * 6) + panelPref y + ViewSpacing.
+               (ViewSpacing * 6) + panelPref y + ViewSpacing.
 
     min := self class minExtent.
     wWanted <  min x ifTrue:[
-	wWanted :=  min x
+        wWanted :=  min x
     ].
     hWanted <  min y ifTrue:[
-	hWanted :=  min y
+        hWanted :=  min y
     ].
     vs2 := ViewSpacing * 2.
-    ^ (wWanted + vs2) @ (hWanted + vs2) 
+    ^ (wWanted + vs2) @ (hWanted + vs2)
+
+    "Modified: 23.4.1996 / 00:14:28 / cg"
 ! !
 
 !EnterBox methodsFor:'startup'!
@@ -567,5 +571,5 @@
 !EnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.37 1996-04-22 21:42:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.38 1996-04-22 22:20:33 cg Exp $'
 ! !