--- 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 $'
 ! !