equal
deleted
inserted
replaced
430 ! ! |
430 ! ! |
431 |
431 |
432 !Annotation methodsFor:'queries'! |
432 !Annotation methodsFor:'queries'! |
433 |
433 |
434 refersToLiteral: anObject |
434 refersToLiteral: anObject |
|
435 "return true if the receiver or recursively any array element in the |
|
436 receiver refers to aLiteral (i.e. a deep search)" |
|
437 |
435 (anObject == key) ifTrue:[ ^ true ]. |
438 (anObject == key) ifTrue:[ ^ true ]. |
436 (anObject == arguments) ifTrue:[ ^ true ]. |
439 (anObject == arguments) ifTrue:[ ^ true ]. |
437 arguments isArray ifTrue:[ ^ arguments refersToLiteral: anObject]. |
440 arguments isArray ifTrue:[ ^ arguments refersToLiteral: anObject]. |
438 ^ false |
441 ^ false |
439 |
442 |
655 ! ! |
658 ! ! |
656 |
659 |
657 !Annotation class methodsFor:'documentation'! |
660 !Annotation class methodsFor:'documentation'! |
658 |
661 |
659 version |
662 version |
660 ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $' |
663 ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $' |
661 ! |
664 ! |
662 |
665 |
663 version_CVS |
666 version_CVS |
664 ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $' |
667 ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $' |
665 ! |
668 ! |
666 |
669 |
667 version_SVN |
670 version_SVN |
668 ^ '$Id: Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $' |
671 ^ '$Id: Annotation.st,v 1.16 2014-03-17 21:20:49 cg Exp $' |
669 ! ! |
672 ! ! |
670 |
673 |
671 |
674 |
672 Annotation initialize! |
675 Annotation initialize! |