--- a/WrappedMethod.st	Wed Feb 05 18:52:12 2014 +0100
+++ b/WrappedMethod.st	Wed Feb 05 18:52:13 2014 +0100
@@ -53,7 +53,7 @@
 !WrappedMethod class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.37 2013-08-29 09:52:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.38 2014-02-05 17:52:13 cg Exp $'
 ! !
 
 !WrappedMethod class methodsFor:'registration'!
@@ -135,6 +135,16 @@
     ^ self originalMethod methodArgAndVarNames
 !
 
+methodArgAndVarNamesInContext: context
+    "return the names of the args and locals of the wrapped method.
+     in given context (for Java, as in java local names differ by 
+     actual program counter)"
+
+    ^ self originalMethod methodArgAndVarNamesInContext: context
+
+    "Created: / 18-12-2012 / 18:16:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 methodVarNames
     "return the names of the locals of the wrapped method."
 
@@ -229,6 +239,22 @@
     "return the source of the method"
 
     ^ self originalMethod source
+!
+
+sourceFilename
+    "return the sourcefilename if source is extern; nil otherwise"
+
+    ^ self originalMethod sourceFilename
+
+    "Created: / 16-10-2013 / 00:05:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+sourcePosition
+    "return the sourceposition if source is extern; nil otherwise"
+
+    ^ self originalMethod sourcePosition
+
+    "Created: / 16-10-2013 / 00:05:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !WrappedMethod methodsFor:'misc'!
@@ -252,6 +278,28 @@
     "Created: / 01-07-2011 / 10:03:32 / cg"
 ! !
 
+!WrappedMethod methodsFor:'printing & storing'!
+
+selectorPrintStringInBrowserFor:selector
+    ^ [
+        self originalMethod perform:  #selectorPrintStringInBrowserFor: with: selector
+    ] on: Object messageNotUnderstoodSignal do:[
+        super selectorPrintStringInBrowserFor:selector
+    ].
+
+    "Created: / 16-10-2013 / 01:04:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+selectorPrintStringInBrowserFor:selector class: class
+    ^ [
+        self originalMethod perform:  #selectorPrintStringInBrowserFor:class: with: selector with: class
+    ] on: Object messageNotUnderstoodSignal do:[
+        super selectorPrintStringInBrowserFor:selector class: class
+    ].
+
+    "Created: / 16-10-2013 / 01:04:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !WrappedMethod methodsFor:'printing and storing'!
 
 printOn:aStream
@@ -396,6 +444,6 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version_SVN
-    ^ '$Id: WrappedMethod.st,v 1.37 2013-08-29 09:52:14 cg Exp $'
+    ^ '$Id: WrappedMethod.st,v 1.38 2014-02-05 17:52:13 cg Exp $'
 ! !