--- a/ListModelView.st	Fri Mar 01 19:53:55 2019 +0100
+++ b/ListModelView.st	Fri Mar 01 22:04:20 2019 +0100
@@ -389,6 +389,14 @@
     "returns the last list entry
     "
     ^ list last
+!
+
+listAt:anIndex
+    "for protocol compatibility with SelectionInListView"
+
+    ^ self at:anIndex
+
+    "Created: / 01-03-2019 / 20:11:00 / Claus Gittinger"
 ! !
 
 !ListModelView methodsFor:'accessing-look'!
@@ -1483,6 +1491,15 @@
     ^ false
 !
 
+numberOfLines
+    "return the number of lines the text has
+     (protocol compat. with SelectionInListView)"
+
+    ^ self size
+
+    "Created: / 01-03-2019 / 19:29:20 / Claus Gittinger"
+!
+
 size
     "returns the number of list entries
     "