--- a/ListEntry.st	Sun May 12 21:05:36 1996 +0200
+++ b/ListEntry.st	Sun May 12 21:07:06 1996 +0200
@@ -99,20 +99,22 @@
     ^ self subclassResponsibility
 !
 
-heightIn:aGC
+heightOn: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"
+    "Created: 12.5.1996 / 20:37:06 / cg"
 !
 
-widthIn:aGC
+widthOn:aGC
     "return the width (in device units) of the receiver when displayed in aGC"
 
     ^ self subclassResponsibility
+
+    "Created: 12.5.1996 / 20:53:09 / cg"
 ! !
 
 !ListEntry methodsFor:'string protocol'!
@@ -154,5 +156,5 @@
 !ListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.9 1996-04-25 17:31:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.10 1996-05-12 19:06:18 cg Exp $'
 ! !