--- a/SelectionInListView.st Fri Nov 20 06:49:06 2015 +0100
+++ b/SelectionInListView.st Tue Dec 01 06:37:49 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."