--- a/Method.st Mon Sep 05 07:07:03 2011 +0200
+++ b/Method.st Mon Sep 05 10:14:17 2011 +0200
@@ -1833,22 +1833,24 @@
annotations ifNil:[^nil].
annotation := annotations at: index.
annotation isArray ifTrue:[
- args := annotation size == 2
- ifTrue:[annotation second]
- ifFalse:[#()].
- args isArray ifFalse:[args := Array with: args].
- annotation := Annotation
- key: annotation first
- arguments: args.
- annotation isUnknown ifFalse:[
- annotations at: index put: annotation.
+ args := annotation size == 2
+ ifTrue:[annotation second]
+ ifFalse:[#()].
+ args isArray ifFalse:[args := Array with: args].
+ annotation := Annotation
+ method:self
+ key: annotation first
+ arguments: args.
+ annotation isUnknown ifFalse:[
+ annotations at: index put: annotation.
"/ annotation annotatesMethod: self
- ].
+ ].
].
^annotation
"Created: / 02-07-2010 / 22:30:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 11-07-2010 / 19:39:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 05-09-2011 / 08:50:43 / cg"
!
annotationIndexOf: key
@@ -3529,11 +3531,11 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.364 2011-08-08 17:20:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.365 2011-09-05 08:14:17 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.364 2011-08-08 17:20:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.365 2011-09-05 08:14:17 cg Exp $'
!
version_SVN