--- a/SelectionInListView.st	Fri Feb 11 19:03:32 2000 +0100
+++ b/SelectionInListView.st	Sat Feb 12 13:48:54 2000 +0100
@@ -2396,6 +2396,12 @@
             ^ self
         ].
     ].
+    (key == #SelectAll) ifTrue:[
+        multipleSelectOk ifTrue:[
+            self selectAll. 
+        ].
+        ^ self
+    ].
 
     mySize := self size.
 
@@ -3673,5 +3679,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.164 2000-02-11 18:03:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.165 2000-02-12 12:48:54 cg Exp $'
 ! !