added #selections: (ST80 compat)
authorClaus Gittinger <cg@exept.de>
Tue, 11 Nov 1997 15:03:03 +0100
changeset 1397 d52f3f02882d
parent 1396 4e019d312d6f
child 1398 234ee5e96495
added #selections: (ST80 compat)
MSelList.st
MultiSelectionInList.st
--- a/MSelList.st	Tue Nov 11 14:52:51 1997 +0100
+++ b/MSelList.st	Tue Nov 11 15:03:03 1997 +0100
@@ -152,10 +152,18 @@
     ^ Array new
 
     "Modified: 25.4.1996 / 09:09:45 / cg"
+!
+
+selections:aCollection
+    "ST80 compatibility"
+
+    ^ self selection:aCollection
+
+    "Created: / 8.11.1997 / 12:55:23 / cg"
 ! !
 
 !MultiSelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/MSelList.st,v 1.13 1997-05-27 09:34:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/MSelList.st,v 1.14 1997-11-11 14:03:03 cg Exp $'
 ! !
--- a/MultiSelectionInList.st	Tue Nov 11 14:52:51 1997 +0100
+++ b/MultiSelectionInList.st	Tue Nov 11 15:03:03 1997 +0100
@@ -152,10 +152,18 @@
     ^ Array new
 
     "Modified: 25.4.1996 / 09:09:45 / cg"
+!
+
+selections:aCollection
+    "ST80 compatibility"
+
+    ^ self selection:aCollection
+
+    "Created: / 8.11.1997 / 12:55:23 / cg"
 ! !
 
 !MultiSelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.13 1997-05-27 09:34:10 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.14 1997-11-11 14:03:03 cg Exp $'
 ! !