--- a/ListEntry.st	Wed Mar 11 21:21:49 1998 +0100
+++ b/ListEntry.st	Thu Mar 12 14:42:22 1998 +0100
@@ -95,7 +95,7 @@
      Assume the GC's font is taken. If that is not the case in a
      particular subclass, this method is to be redefined there."
 
-    ^ aGC font height
+    ^ aGC font heightOn:(aGC device) 
 
     "Created: 12.5.1996 / 20:37:06 / cg"
 !
@@ -171,5 +171,5 @@
 !ListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.14 1998-02-05 19:02:08 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.15 1998-03-12 13:42:22 ca Exp $'
 ! !