--- a/ImmutableArray.st Tue Mar 13 15:46:50 2012 +0000
+++ b/ImmutableArray.st Wed Mar 21 17:45:38 2012 +0000
@@ -11,7 +11,7 @@
"
"{ Package: 'stx:libbasic' }"
-Array variableSubclass:#ImmutableArray
+Array subclass:#ImmutableArray
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -141,43 +141,9 @@
!ImmutableArray methodsFor:'error handling'!
-creator
- "find the method that contains me"
- ^ Method allSubInstances detect:[:aMethod | (aMethod referencesGlobal:self)] ifNone:nil.
-
- "
- #(1 2 3) creator
- "
-
- "Modified: 24.6.1996 / 15:36:28 / stefan"
-!
-
-noModificationError
- "a store is attempted - for our convenience, find the method that
- contains me, for a nicer error message"
-
- |creator msg context|
- creator := self creator.
- creator notNil ifTrue:[
- msg := ' (' , creator whoString , ')'
- ].
- context := thisContext sender.
- "
- this error is reported on an attempt to store into a literal
- array. The literal was created in creator.
- If you press continue in the debugger, the store will be performed.
- If you don't want this, press abort and check your code.
- Storing into literals is VERY VERY bad coding style.
- "
- NoModificationError
- raiseRequestWith:self
- errorString:msg
- in:context.
-
- "Created: / 3.8.1998 / 14:47:45 / cg"
-! !
+ !
!ImmutableArray methodsFor:'private'!
@@ -219,16 +185,13 @@
!ImmutableArray class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.28 2009/11/16 08:59:40 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.29 2012/02/27 19:44:21 cg Exp $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.28 2009/11/16 08:59:40 stefan Exp '
+ ^ '§Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.29 2012/02/27 19:44:21 cg Exp §'
!
version_SVN
- ^ '$Id: ImmutableArray.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+ ^ '$Id: ImmutableArray.st 10792 2012-03-21 17:45:38Z vranyj1 $'
! !
-
-
-