--- a/ListEntry.st	Wed Feb 07 15:19:21 1996 +0100
+++ b/ListEntry.st	Thu Feb 08 15:09:25 1996 +0100
@@ -11,10 +11,10 @@
 "
 
 Object subclass:#ListEntry
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Views-Support'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Support'
 !
 
 !ListEntry class methodsFor:'documentation'!
@@ -43,30 +43,42 @@
 "
 ! !
 
+!ListEntry methodsFor:'drawing'!
+
+displayOn:aGC x:x y:y
+    "display the receiver on a GC"
+
+    ^ self displayOn:aGC x:x y:y opaque:false 
+!
+
+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
+
+    "Created: 8.2.1996 / 11:56:14 / cg"
+!
+
+species
+    ^ String
+
+    "Created: 8.2.1996 / 12:52:38 / cg"
+!
+
 string
     ^ self asString
 ! !
 
-!ListEntry methodsFor:'drawing'!
-
-displayOpaqueOn:aGC x:x y:y
-    "display the receiver on a GC"
-
-    ^ self displayOn:aGC x:x y:y opaque:true
-!
-
-displayOn:aGC x:x y:y
-    "display the receiver on a GC"
-
-    ^ self displayOn:aGC x:x y:y opaque:false 
-! !
-
 !ListEntry methodsFor:'required protocol'!
 
 asString
@@ -97,8 +109,44 @@
     ^ self subclassResponsibility
 ! !
 
+!ListEntry methodsFor:'string protocol'!
+
+< aString
+    "behave like a string when comparing"
+
+    ^ self asString < aString asString
+
+    "Created: 8.2.1996 / 12:01:29 / cg"
+!
+
+= aString
+    "behave like a string when comparing"
+
+    ^ self asString = aString asString
+
+    "Created: 8.2.1996 / 12:01:24 / cg"
+!
+
+at:index
+    ^ self string at:index
+
+    "Created: 8.2.1996 / 12:53:06 / cg"
+!
+
+do:aBlock
+    ^ self string do:aBlock
+
+    "Created: 8.2.1996 / 12:56:06 / cg"
+!
+
+size
+    ^ self string size
+
+    "Created: 8.2.1996 / 12:54:45 / cg"
+! !
+
 !ListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.7 1995-12-11 17:06:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.8 1996-02-08 14:09:25 cg Exp $'
 ! !