--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ReadOnlySequenceableCollection.st	Wed Oct 31 11:03:05 2001 +0100
@@ -0,0 +1,64 @@
+"{ Package: 'stx:libbasic' }"
+
+SequenceableCollection subclass:#ReadOnlySequenceableCollection
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Collections-Abstract'
+!
+
+
+!ReadOnlySequenceableCollection methodsFor:'blocked access'!
+
+add:newObject
+    "{ Pragma: +optSpace }"
+
+    "catch add message - cannot add elements"
+
+    self error:('elements cannot be added to ' , self classNameWithArticle)
+
+    "
+     (1 to:10) add:11   
+    "
+
+    "Created: / 31.10.2001 / 10:06:44 / cg"
+    "Modified: / 31.10.2001 / 10:08:15 / cg"
+!
+
+at:index put:anObject
+    "{ Pragma: +optSpace }"
+
+    "catch at:put: message - cannot store elements"
+
+    self error:('you cannot store into ' , self classNameWithArticle)
+
+    "
+     (1 to:10) at:5 put:10   
+     (1 to:10) atAllPut:5   
+     (1 to:10) replaceFrom:1 to:4 with:#(10 20 30 40)  
+    "
+
+    "Created: / 31.10.2001 / 10:05:36 / cg"
+    "Modified: / 31.10.2001 / 10:09:19 / cg"
+!
+
+remove:anObject
+    "{ Pragma: +optSpace }"
+
+    "catch remove message - cannot remove elements"
+
+    self error:('elements cannot be removed from ' , self classNameWithArticle)
+
+    "
+     (1 to:10) remove:9   
+    "
+
+    "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.1 2001-10-31 10:03:05 cg Exp $'
+! !