equal
deleted
inserted
replaced
435 |
435 |
436 "/ self assert:(ImmutableArray notNil). |
436 "/ self assert:(ImmutableArray notNil). |
437 ^ self copy beImmutable |
437 ^ self copy beImmutable |
438 |
438 |
439 "Modified: / 07-06-2012 / 11:06:48 / cg" |
439 "Modified: / 07-06-2012 / 11:06:48 / cg" |
|
440 ! |
|
441 |
|
442 asNewArray |
|
443 "return the receiver as an unique new array." |
|
444 |
|
445 "could be an instance of a subclass..." |
|
446 self class == Array ifTrue:[ |
|
447 ^ self copy |
|
448 ]. |
|
449 ^ super asArray |
440 ! |
450 ! |
441 |
451 |
442 beImmutable |
452 beImmutable |
443 "make myself write-protected" |
453 "make myself write-protected" |
444 |
454 |
2566 ! ! |
2576 ! ! |
2567 |
2577 |
2568 !Array class methodsFor:'documentation'! |
2578 !Array class methodsFor:'documentation'! |
2569 |
2579 |
2570 version |
2580 version |
2571 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.156 2013-01-23 17:57:32 cg Exp $' |
2581 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.157 2013-03-28 23:13:28 stefan Exp $' |
2572 ! |
2582 ! |
2573 |
2583 |
2574 version_CVS |
2584 version_CVS |
2575 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.156 2013-01-23 17:57:32 cg Exp $' |
2585 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.157 2013-03-28 23:13:28 stefan Exp $' |
2576 ! ! |
2586 ! ! |
|
2587 |