equal
deleted
inserted
replaced
2723 ! ! |
2723 ! ! |
2724 |
2724 |
2725 !MessageTracer class methodsFor:'queries'! |
2725 !MessageTracer class methodsFor:'queries'! |
2726 |
2726 |
2727 allWrappedMethods |
2727 allWrappedMethods |
2728 |methods| |
2728 ^ Smalltalk allMethodsForWhich:[:mthd | mthd isWrapped] |
2729 |
|
2730 methods := IdentitySet new. |
|
2731 |
|
2732 Smalltalk allMethodsDo:[:mthd | |
|
2733 mthd isWrapped ifTrue:[ |
|
2734 methods add:mthd. |
|
2735 ] |
|
2736 ]. |
|
2737 ^ methods asOrderedCollection |
|
2738 ! |
2729 ! |
2739 |
2730 |
2740 areAnyMethodsWrapped |
2731 areAnyMethodsWrapped |
2741 Smalltalk allMethodsDo:[:mthd | |
2732 Smalltalk allMethodsDo:[:mthd | |
2742 mthd isWrapped ifTrue:[ ^ true ] |
2733 mthd isWrapped ifTrue:[ ^ true ] |
3267 ! ! |
3258 ! ! |
3268 |
3259 |
3269 !MessageTracer class methodsFor:'documentation'! |
3260 !MessageTracer class methodsFor:'documentation'! |
3270 |
3261 |
3271 version_CVS |
3262 version_CVS |
3272 ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.117 2012-11-05 23:09:21 cg Exp $' |
3263 ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.118 2013-03-22 11:46:13 cg Exp $' |
3273 ! ! |
3264 ! ! |
3274 |
3265 |
|
3266 |
3275 MessageTracer initialize! |
3267 MessageTracer initialize! |