--- a/WrappedMethod.st Tue Mar 04 16:00:08 2014 +0100
+++ b/WrappedMethod.st Wed Mar 05 17:32:56 2014 +0100
@@ -53,7 +53,7 @@
!WrappedMethod class methodsFor:'others'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.39 2014-02-24 23:22:28 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.40 2014-03-05 16:32:56 cg Exp $'
! !
!WrappedMethod class methodsFor:'registration'!
@@ -252,6 +252,8 @@
!WrappedMethod methodsFor:'accessing-annotations'!
annotateWith: annotation
+ "add a (hidden) annotation"
+
^ self originalMethod annotateWith: annotation
"Created: / 24-02-2014 / 22:47:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -488,6 +490,6 @@
!WrappedMethod class methodsFor:'documentation'!
version_SVN
- ^ '$Id: WrappedMethod.st,v 1.39 2014-02-24 23:22:28 vrany Exp $'
+ ^ '$Id: WrappedMethod.st,v 1.40 2014-03-05 16:32:56 cg Exp $'
! !