equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
14 |
13 |
15 ArrayedCollection variableSubclass:#Array |
14 ArrayedCollection variableSubclass:#Array |
16 instanceVariableNames:'' |
15 instanceVariableNames:'' |
17 classVariableNames:'' |
16 classVariableNames:'' |
2463 |
2462 |
2464 "/ |
2463 "/ |
2465 "/ care for recursive arrays ... |
2464 "/ care for recursive arrays ... |
2466 "/ |
2465 "/ |
2467 thisContext isRecursive ifTrue:[^ false]. |
2466 thisContext isRecursive ifTrue:[^ false]. |
2468 self do:[:element | |
2467 ^ self conform:[:element | element isLiteral]. |
2469 element isLiteral ifFalse:[^ false] |
2468 |
2470 ]. |
2469 "Modified: / 13-10-2006 / 13:00:45 / cg" |
2471 ^ true |
|
2472 |
|
2473 "Modified: 22.4.1996 / 12:55:19 / cg" |
|
2474 ! |
2470 ! |
2475 |
2471 |
2476 notEmpty |
2472 notEmpty |
2477 "return true if the receiver contains elements. |
2473 "return true if the receiver contains elements. |
2478 Reimplemented here for performance." |
2474 Reimplemented here for performance." |
2498 ! ! |
2494 ! ! |
2499 |
2495 |
2500 !Array class methodsFor:'documentation'! |
2496 !Array class methodsFor:'documentation'! |
2501 |
2497 |
2502 version |
2498 version |
2503 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.141 2006-05-15 09:15:58 fm Exp $' |
2499 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.142 2006-10-13 11:01:35 cg Exp $' |
2504 ! ! |
2500 ! ! |