--- a/MultiSelectionInList.st	Fri Jan 02 17:00:30 1998 +0100
+++ b/MultiSelectionInList.st	Fri Jan 02 17:05:11 1998 +0100
@@ -136,6 +136,26 @@
 
 !MultiSelectionInList methodsFor:'selections'!
 
+clearAll
+    "ST80 compatibility"
+
+    self selection:nil.
+!
+
+selectAll
+    "ST80 compatibility"
+
+    |indizes size|
+
+    (size := listHolder value size) == 0 ifTrue:[
+        ^ self clearAll
+    ].
+
+    indizes := Array new:size.
+    1 to:size do:[:i| indizes at:i put:i].
+    self selectionIndex:indizes.
+!
+
 selections
     "obsolete - almost the same as selection"
 
@@ -165,5 +185,5 @@
 !MultiSelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.14 1997-11-11 14:03:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.15 1998-01-02 16:05:11 ca Exp $'
 ! !