--- a/ReadOnlySequenceableCollection.st Fri Jul 16 15:37:16 2004 +0200
+++ b/ReadOnlySequenceableCollection.st Tue Jul 27 12:05:27 2004 +0200
@@ -9,6 +9,7 @@
other person. No title to or ownership of the software is
hereby transferred.
"
+
"{ Package: 'stx:libbasic' }"
SequenceableCollection subclass:#ReadOnlySequenceableCollection
@@ -59,10 +60,12 @@
"
(1 to:10) add:11
+ (1 to:10) addAll:#(11 12)
+ (1 to:10) remove:9
+ (1 to:10) remove:9 ifAbsent:nil
+ (1 to:10) removeAll:#(1 4)
+ (1 to:10) atAllPut:1
"
-
- "Created: / 31.10.2001 / 10:06:44 / cg"
- "Modified: / 31.10.2001 / 10:08:15 / cg"
!
at:index put:anObject
@@ -82,7 +85,7 @@
"Modified: / 31.10.2001 / 10:09:19 / cg"
!
-remove:anObject
+remove:anObject ifAbsent:exceptionalValue
"{ Pragma: +optSpace }"
"catch remove message - cannot remove elements"
@@ -90,15 +93,12 @@
self error:('elements cannot be removed from ' , self classNameWithArticle)
"
- (1 to:10) remove:9
+ (1 to:10) remove:9 ifAbsent:nil
"
-
- "Created: / 31.10.2001 / 10:07:12 / cg"
- "Modified: / 31.10.2001 / 10:07:29 / cg"
! !
!ReadOnlySequenceableCollection class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ReadOnlySequenceableCollection.st,v 1.2 2001-11-16 10:11:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ReadOnlySequenceableCollection.st,v 1.3 2004-07-27 10:05:27 cg Exp $'
! !