--- a/EditField.st	Sun Apr 13 03:36:31 2014 +0200
+++ b/EditField.st	Sun Apr 13 22:24:04 2014 +0200
@@ -1903,7 +1903,7 @@
     |innerHeight rest|
 
     innerHeight := self innerHeight.
-    rest := innerHeight - (font height + (font descent // 2)).
+    rest := innerHeight - (gc font height + (gc font descent // 2)).
     rest > 1 ifTrue:[
         textStartTop := (rest // 2) + margin + topMargin
     ].
@@ -2372,10 +2372,10 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.233 2014-04-13 00:40:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.234 2014-04-13 20:24:04 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.233 2014-04-13 00:40:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.234 2014-04-13 20:24:04 stefan Exp $'
 ! !