equal
deleted
inserted
replaced
1828 %} |
1828 %} |
1829 ! |
1829 ! |
1830 |
1830 |
1831 refersToLiteral:aLiteral |
1831 refersToLiteral:aLiteral |
1832 "return true if the receiver or recursively any array element in the |
1832 "return true if the receiver or recursively any array element in the |
1833 receiver referes to aLiteral (i.e. a deep search)" |
1833 receiver refers to aLiteral (i.e. a deep search)" |
1834 |
1834 |
1835 self do: [ :el | |
1835 self do: [ :el | |
1836 el == aLiteral ifTrue:[^true]. |
1836 el == aLiteral ifTrue:[^true]. |
1837 el class == Array ifTrue:[ |
1837 el class == Array ifTrue:[ |
1838 (el refersToLiteral: aLiteral) ifTrue: [^true] |
1838 (el refersToLiteral: aLiteral) ifTrue: [^true] |
1839 ] |
1839 ] |
1840 ]. |
1840 ]. |
1841 ^ false |
1841 ^ false |
1842 |
1842 |
1843 " |
1843 " |
1844 #(1 2 3) refersToLiteral:#foo |
1844 #(1 2 3) refersToLiteral:#foo |
2610 ! ! |
2610 ! ! |
2611 |
2611 |
2612 !Array class methodsFor:'documentation'! |
2612 !Array class methodsFor:'documentation'! |
2613 |
2613 |
2614 version |
2614 version |
2615 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.161 2013-12-05 11:34:23 cg Exp $' |
2615 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.162 2014-03-17 21:20:26 cg Exp $' |
2616 ! |
2616 ! |
2617 |
2617 |
2618 version_CVS |
2618 version_CVS |
2619 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.161 2013-12-05 11:34:23 cg Exp $' |
2619 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.162 2014-03-17 21:20:26 cg Exp $' |
2620 ! ! |
2620 ! ! |
2621 |
2621 |