--- a/Annotation.st Mon Nov 05 22:13:16 2012 +0100
+++ b/Annotation.st Tue Nov 06 00:27:14 2012 +0100
@@ -146,7 +146,7 @@
^
"/ cg: do not react on all those methods inherited from Object (such as inline:)
- "/ self respondsTo: key)
+ "/ (self respondsTo: key)
(self class includesSelector:key)
ifTrue:
[self
@@ -195,6 +195,8 @@
"Created: / 16-07-2010 / 11:31:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
+
!Annotation class methodsFor:'finding'!
allNamed: aSymbol from: aSubClass to: aSuperClass
@@ -257,6 +259,7 @@
"Modified: / 20-08-2011 / 21:31:49 / cg"
! !
+
!Annotation methodsFor:'accessing'!
first
@@ -685,11 +688,11 @@
!Annotation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.12 2012-10-29 10:25:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.13 2012-11-05 23:27:14 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.12 2012-10-29 10:25:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.13 2012-11-05 23:27:14 cg Exp $'
!
version_SVN