--- a/ListEntry.st	Sun Nov 02 18:36:44 1997 +0100
+++ b/ListEntry.st	Sun Nov 02 18:39:18 1997 +0100
@@ -49,20 +49,8 @@
 "
 ! !
 
-!ListEntry methodsFor:'drawing'!
-
-displayOpaqueOn:aGC x:x y:y
-    "display the receiver on a GC"
-
-    ^ self displayOn:aGC x:x y:y opaque:true
-! !
-
 !ListEntry methodsFor:'queries'!
 
-includes:aCharacter 
-    ^ self string includes:aCharacter
-!
-
 printString
     ^ self asString
 
@@ -130,25 +118,44 @@
 !
 
 at:index
+    "behave like a string when accessing characters"
+
     ^ self string at:index
 
-    "Created: 8.2.1996 / 12:53:06 / cg"
+    "Created: / 8.2.1996 / 12:53:06 / cg"
+    "Modified: / 30.10.1997 / 15:41:47 / cg"
 !
 
 do:aBlock
+    "behave like a string when enumerating characters"
+
     ^ self string do:aBlock
 
-    "Created: 8.2.1996 / 12:56:06 / cg"
+    "Created: / 8.2.1996 / 12:56:06 / cg"
+    "Modified: / 30.10.1997 / 15:42:06 / cg"
 !
 
 size
+    "behave like a string when asked for the size"
+
     ^ self string size
 
-    "Created: 8.2.1996 / 12:54:45 / cg"
+    "Created: / 8.2.1996 / 12:54:45 / cg"
+    "Modified: / 30.10.1997 / 15:42:19 / cg"
+! !
+
+!ListEntry methodsFor:'testing'!
+
+includes:aCharacter 
+    "behave like a string when testing"
+
+    ^ self string includes:aCharacter
+
+    "Modified: / 30.10.1997 / 15:42:32 / cg"
 ! !
 
 !ListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.11 1997-10-15 09:39:25 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.12 1997-11-02 17:39:18 cg Exp $'
 ! !