"{ 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 $'
! !