--- a/WrappedMethod.st Mon Sep 22 12:57:15 2008 +0200
+++ b/WrappedMethod.st Thu Sep 25 15:42:52 2008 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic3' }"
Method variableSubclass:#WrappedMethod
@@ -160,6 +159,12 @@
"Created: / 27.1.1999 / 20:23:17 / cg"
!
+hasResource
+ "return the wrapped methods hasResource"
+
+ ^ self originalMethod hasResource
+!
+
isBreakpointed
"return true, if the receiver is a wrapped method for a breakpoint.
Ask the messageTracer, since I dont know if its a break or trace"
@@ -212,6 +217,12 @@
^ self originalMethod messagesSentToSuper
!
+resources
+ "return the wrapped methods resources"
+
+ ^ self originalMethod resources
+!
+
signature
^ self originalMethod signature
@@ -227,5 +238,5 @@
!WrappedMethod class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.24 2004-09-10 10:40:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.25 2008-09-25 13:42:52 mb Exp $'
! !