--- a/EnterBox.st	Mon Jul 27 20:17:41 1998 +0200
+++ b/EnterBox.st	Mon Jul 27 20:19:03 1998 +0200
@@ -536,9 +536,8 @@
     wPanel > wWanted ifTrue:[
         wWanted := wPanel
     ].
-
-    hWanted := labelPref y + enterPref y +
-               (ViewSpacing * 6) + panelPref y + ViewSpacing.
+    hWanted := labelPref y + ViewSpacing + enterPref y +
+               ViewSpacing + panelPref y + ViewSpacing.
 
     min := self class minExtent.
     wWanted <  min x ifTrue:[
@@ -550,7 +549,8 @@
     vs2 := ViewSpacing * 2.
     ^ (wWanted + vs2) @ (hWanted + vs2)
 
-    "Modified: 19.7.1996 / 20:44:00 / cg"
+    "Modified: / 22.1.1998 / 09:57:55 / md"
+    "Modified: / 27.7.1998 / 20:18:41 / cg"
 ! !
 
 !EnterBox methodsFor:'startup'!
@@ -665,5 +665,5 @@
 !EnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.46 1998-07-27 18:16:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.47 1998-07-27 18:19:03 cg Exp $'
 ! !