--- a/WrappedMethod.st Sat Oct 05 12:51:21 2013 +0100
+++ b/WrappedMethod.st Wed Oct 16 01:22:03 2013 +0100
@@ -11,7 +11,7 @@
"
"{ Package: 'stx:libbasic3' }"
-Method subclass:#WrappedMethod
+Method variableSubclass:#WrappedMethod
instanceVariableNames:''
classVariableNames:'AllWrappedMethods'
poolDictionaries:''
@@ -244,6 +244,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'!
@@ -267,6 +283,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