--- a/EditField.st	Thu May 21 03:18:07 1998 +0200
+++ b/EditField.st	Thu May 21 03:50:08 1998 +0200
@@ -1751,7 +1751,7 @@
     selectionBgColor := DefaultSelectionBackgroundColor.
     cursorTypeNoFocus := #none
 
-    "Modified: / 21.5.1998 / 01:21:24 / cg"
+    "Modified: / 21.5.1998 / 03:48:24 / cg"
 !
 
 initialize
@@ -1895,12 +1895,12 @@
     w := w + margin + margin.
     w := w min:(device width // 2).
 
-    h := f maxHeight + f maxDescent + (margin * 2).
+    h := f maxHeight + (f maxDescent * 2) + (margin * 2).
 
     ^ w rounded @ h rounded
 
-    "Modified: 6.9.1995 / 19:24:06 / claus"
-    "Modified: 7.3.1997 / 16:47:15 / cg"
+    "Modified: / 6.9.1995 / 19:24:06 / claus"
+    "Modified: / 21.5.1998 / 02:13:35 / cg"
 !
 
 specClass
@@ -1983,5 +1983,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.105 1998-05-20 23:22:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.106 1998-05-21 01:50:08 cg Exp $'
 ! !