--- a/WrappedMethod.st Sun Nov 18 19:46:19 2012 +0000
+++ b/WrappedMethod.st Fri Nov 30 17:20:01 2012 +0000
@@ -53,7 +53,7 @@
!WrappedMethod class methodsFor:'others'!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.32 2012/07/31 12:16:21 vrany Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.33 2012/10/22 08:13:16 cg Exp §'
! !
!WrappedMethod class methodsFor:'registration'!
@@ -86,7 +86,7 @@
!WrappedMethod methodsFor:'accessing'!
annotations
- "return the wrapped methods annotations"
+ "return the wrapped method's annotations"
^ self originalMethod annotations
@@ -107,13 +107,13 @@
!
literals
- "return the wrapped methods literals"
+ "return the wrapped method's literals"
^ self originalMethod literals
!
literalsDetect:aBlock ifNone:exceptionBlock
- "access the wrapped methods literals"
+ "access the wrapped method's literals"
^ self originalMethod literalsDetect:aBlock ifNone:exceptionBlock
@@ -121,7 +121,7 @@
!
literalsDo:aBlock
- "access the wrapped methods literals"
+ "access the wrapped method's literals"
^ self originalMethod literalsDo:aBlock
@@ -177,7 +177,7 @@
!
privacy
- "return the wrapped methods privacy"
+ "return the wrapped method's privacy"
^ self originalMethod privacy
@@ -186,7 +186,7 @@
!
privacy:aSymbol
- "set the wrapped methods privacy"
+ "set the wrapped method's privacy"
^ self originalMethod privacy:aSymbol
!
@@ -200,7 +200,7 @@
!
setPrivacy:aSymbol
- "set the wrapped methods privacy"
+ "set the wrapped method's privacy"
^ self originalMethod setPrivacy:aSymbol
@@ -345,9 +345,9 @@
!WrappedMethod class methodsFor:'documentation'!
version
- ^ '$Id: WrappedMethod.st 1957 2012-09-05 11:45:38Z vranyj1 $'
+ ^ '$Id: WrappedMethod.st 1981 2012-11-30 17:20:01Z vranyj1 $'
!
version_SVN
- ^ '$Id: WrappedMethod.st 1957 2012-09-05 11:45:38Z vranyj1 $'
+ ^ '$Id: WrappedMethod.st 1981 2012-11-30 17:20:01Z vranyj1 $'
! !