--- a/EditField.st	Wed May 29 12:20:58 1996 +0200
+++ b/EditField.st	Wed May 29 12:24:15 1996 +0200
@@ -1654,6 +1654,10 @@
 
     |string w f|
 
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
     string := self contents.
     (string isNil or:[string isBlank]) ifTrue:[
         string := '          ' "/ just any string is ok ^ super preferredExtent
@@ -1666,7 +1670,7 @@
     ^ w @ (f maxHeight + f descent + (margin * 2)) rounded
 
     "Modified: 6.9.1995 / 19:24:06 / claus"
-    "Modified: 22.5.1996 / 13:04:49 / cg"
+    "Modified: 29.5.1996 / 12:13:00 / cg"
 !
 
 specClass
@@ -1723,5 +1727,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.62 1996-05-24 16:35:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.63 1996-05-29 10:24:15 cg Exp $'
 ! !