--- a/SelectionInListView.st	Mon Sep 02 11:01:14 2013 +0200
+++ b/SelectionInListView.st	Mon Sep 02 17:11:03 2013 +0200
@@ -3772,6 +3772,13 @@
     "Modified: 15.11.1996 / 17:01:17 / cg"
 !
 
+selectFirst
+    "select the first element.
+     Model and/or actionBlock notification IS done."
+
+    self selection:(self nextSelectableAfter:0)
+!
+
 selectNext
     "select next line or first visible if there is currrently no selection.
      Wrap at end. 
@@ -4107,10 +4114,10 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.268 2013-06-25 21:22:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.269 2013-09-02 15:11:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.268 2013-06-25 21:22:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.269 2013-09-02 15:11:03 cg Exp $'
 ! !