--- a/SelectionInListView.st	Thu Nov 19 15:37:57 2015 +0100
+++ b/SelectionInListView.st	Mon Nov 30 17:16:12 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -3883,6 +3881,13 @@
     self selection:(self nextSelectableAfter:0)
 !
 
+selectFirstVisibleLine
+    "select the first selectable element.
+     Model and/or actionBlock notification IS done."
+
+    self selection:(self nextSelectableAfter:self firstLineShown -1)
+!
+
 selectLast
     "select the last selectable element.
      Model and/or actionBlock notification IS done."