equal
deleted
inserted
replaced
795 " |
795 " |
796 get class/selector |
796 get class/selector |
797 " |
797 " |
798 class := aMethod containingClass. |
798 class := aMethod containingClass. |
799 class isNil ifTrue:[ |
799 class isNil ifTrue:[ |
800 'no containing class for method found' printNL. |
800 'MSGTRACER: no containing class for method found' infoPrintNL. |
801 ^ aMethod |
801 ^ aMethod |
802 ]. |
802 ]. |
803 selector := class selectorAtMethod:aMethod. |
803 selector := class selectorAtMethod:aMethod. |
804 |
804 |
805 originalMethod := aMethod originalMethod. |
805 originalMethod := aMethod originalMethod. |
817 ]. |
817 ]. |
818 |
818 |
819 ObjectMemory flushCaches. |
819 ObjectMemory flushCaches. |
820 ^ originalMethod |
820 ^ originalMethod |
821 |
821 |
822 "Modified: 15.12.1995 / 15:43:48 / cg" |
822 "Modified: 17.12.1995 / 16:00:55 / cg" |
823 ! |
823 ! |
824 |
824 |
825 wrapMethod:aMethod onEntry:entryBlock onExit:exitBlock |
825 wrapMethod:aMethod onEntry:entryBlock onExit:exitBlock |
826 "arrange for the two blocks entryBlock and exitBlock to be evaluated whenever |
826 "arrange for the two blocks entryBlock and exitBlock to be evaluated whenever |
827 aMethod is evaluated. |
827 aMethod is evaluated. |
1539 ! ! |
1539 ! ! |
1540 |
1540 |
1541 !MessageTracer class methodsFor:'documentation'! |
1541 !MessageTracer class methodsFor:'documentation'! |
1542 |
1542 |
1543 version |
1543 version |
1544 ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.28 1995-12-15 20:43:17 cg Exp $' |
1544 ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.29 1995-12-17 15:20:58 cg Exp $' |
1545 ! ! |
1545 ! ! |
1546 MessageTracer initialize! |
1546 MessageTracer initialize! |