--- a/EnterBox.st	Tue May 28 22:20:48 1996 +0200
+++ b/EnterBox.st	Wed May 29 12:20:58 1996 +0200
@@ -527,6 +527,10 @@
     |wWanted hWanted wPanel vs2 min 
      labelPref enterPref panelPref|
 
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
     panelPref := buttonPanel preferredExtent.
     labelPref := labelField preferredExtent.
     enterPref := enterField preferredExtent.
@@ -549,7 +553,7 @@
     vs2 := ViewSpacing * 2.
     ^ (wWanted + vs2) @ (hWanted + vs2)
 
-    "Modified: 23.4.1996 / 00:14:28 / cg"
+    "Modified: 29.5.1996 / 12:12:56 / cg"
 ! !
 
 !EnterBox methodsFor:'startup'!
@@ -664,5 +668,5 @@
 !EnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.42 1996-05-22 13:28:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterBox.st,v 1.43 1996-05-29 10:16:27 cg Exp $'
 ! !