--- a/ListEntry.st	Tue Nov 21 14:34:54 1995 +0100
+++ b/ListEntry.st	Thu Nov 23 00:25:21 1995 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.2 1995-11-11 16:29:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.3 1995-11-22 23:25:21 cg Exp $'
 !
 
 documentation
@@ -77,6 +77,15 @@
     "return the width (in device units) of the receiver when displayed in aGC"
 
     ^ self subclassResponsibility
+!
 
+heightIn:aGC
+    "return the height of the receiver when displayed in aGC.
+     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
+
+    "Created: 23.11.1995 / 00:19:45 / cg"
 ! !