--- a/SelectionInListModelView.st	Sun Nov 22 01:33:45 2015 +0100
+++ b/SelectionInListModelView.st	Mon Nov 30 17:15:57 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1999 by eXept Software AG
 	      All Rights Reserved
@@ -2541,6 +2539,16 @@
     self selection:(self nextSelectableAfter:0)
 !
 
+selectFirstVisibleLine
+    "select the first visible selectable element.
+     Model and/or actionBlock notification IS done."
+
+    |firstLineShown|
+    
+    firstLineShown := self yVisibleToLineNr:1.
+    self selection:(self nextSelectableAfter:firstLineShown-1)
+!
+
 selectFrom:aStart to:aStop
     "select lines between start and stop
     "