--- a/MessageTracer.st Fri Mar 22 11:11:55 2013 +0000
+++ b/MessageTracer.st Thu Mar 28 12:22:48 2013 +0000
@@ -245,6 +245,7 @@
"
! !
+
!MessageTracer class methodsFor:'Signal constants'!
breakpointSignal
@@ -257,6 +258,7 @@
"Created: / 21.4.1998 / 14:38:49 / cg"
! !
+
!MessageTracer class methodsFor:'class initialization'!
initialize
@@ -302,6 +304,7 @@
"Created: / 30.7.1998 / 17:00:09 / cg"
! !
+
!MessageTracer class methodsFor:'class tracing'!
untraceAllClasses
@@ -322,6 +325,7 @@
^ self untrapClass:aClass
! !
+
!MessageTracer class methodsFor:'class wrapping'!
wrapClass:orgClass selector:aSelector onEntry:entryBlock onExit:exitBlock
@@ -486,6 +490,7 @@
"Modified: / 01-07-2011 / 10:01:59 / cg"
! !
+
!MessageTracer class methodsFor:'cleanup'!
cleanup
@@ -503,6 +508,7 @@
"
! !
+
!MessageTracer class methodsFor:'execution trace'!
debugTrace:aBlock
@@ -619,6 +625,7 @@
"
! !
+
!MessageTracer class methodsFor:'method breakpointing'!
trapClass:aClass selector:aSelector
@@ -854,6 +861,7 @@
^ self unwrapMethod:aMethod
! !
+
!MessageTracer class methodsFor:'method counting'!
countMethod:aMethod
@@ -929,6 +937,7 @@
"Modified: 15.12.1995 / 15:43:53 / cg"
! !
+
!MessageTracer class methodsFor:'method memory usage'!
countMemoryUsageOfMethod:aMethod
@@ -1063,6 +1072,7 @@
"Modified: 18.12.1995 / 21:54:36 / stefan"
! !
+
!MessageTracer class methodsFor:'method timing'!
executionTimesOfMethod:aMethod
@@ -1160,6 +1170,7 @@
"Modified: / 05-03-2007 / 15:34:01 / cg"
! !
+
!MessageTracer class methodsFor:'method tracing'!
traceClass:aClass selector:aSelector
@@ -1516,6 +1527,7 @@
^ self unwrapMethod:aMethod
! !
+
!MessageTracer class methodsFor:'method wrapping'!
unwrapAllMethods
@@ -1810,6 +1822,7 @@
"Modified: / 01-07-2011 / 10:01:48 / cg"
! !
+
!MessageTracer class methodsFor:'object breakpointing'!
objectHasWraps:anObject
@@ -1963,6 +1976,7 @@
^ anObject class selectors
! !
+
!MessageTracer class methodsFor:'object modification traps'!
trapModificationsIn:anObject
@@ -2158,6 +2172,7 @@
"
! !
+
!MessageTracer class methodsFor:'object tracing'!
trace:anObject selector:aSelector
@@ -2513,6 +2528,7 @@
^ self untrap:anObject selector:aSelector
! !
+
!MessageTracer class methodsFor:'object wrapping'!
wrap:anObject selector:aSelector onEntry:entryBlock onExit:exitBlock
@@ -2777,19 +2793,11 @@
"Modified: 5.6.1996 / 14:50:07 / stefan"
! !
+
!MessageTracer class methodsFor:'queries'!
allWrappedMethods
- |methods|
-
- methods := IdentitySet new.
-
- Smalltalk allMethodsDo:[:mthd |
- mthd isWrapped ifTrue:[
- methods add:mthd.
- ]
- ].
- ^ methods asOrderedCollection
+ ^ Smalltalk allMethodsForWhich:[:mthd | mthd isWrapped]
!
areAnyMethodsWrapped
@@ -2845,6 +2853,7 @@
"Modified: 22.10.1996 / 17:40:37 / cg"
! !
+
!MessageTracer class methodsFor:'trace helpers'!
dummyEmptyMethod
@@ -3112,6 +3121,7 @@
! !
+
!MessageTracer methodsFor:'trace helpers'!
trace:aBlock detail:fullDetail
@@ -3143,6 +3153,7 @@
"
! !
+
!MessageTracer::InteractionCollector methodsFor:'trace helpers'!
stepInterrupt
@@ -3152,6 +3163,7 @@
InterruptPending := 1.
! !
+
!MessageTracer::MethodTimingInfo methodsFor:'accessing'!
avgTime
@@ -3216,6 +3228,7 @@
^ sumTimes
! !
+
!MessageTracer::MethodTimingInfo methodsFor:'initialization'!
rememberExecutionTime:t
@@ -3237,12 +3250,14 @@
"Created: / 05-03-2007 / 15:32:43 / cg"
! !
+
!MessageTracer::PrintingMessageTracer methodsFor:'accessing'!
output:something
output := something.
! !
+
!MessageTracer::PrintingMessageTracer methodsFor:'trace helpers'!
stepInterrupt
@@ -3321,10 +3336,11 @@
"
! !
+
!MessageTracer class methodsFor:'documentation'!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.117 2012/11/05 23:09:21 cg Exp §'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.118 2013-03-22 11:46:13 cg Exp $'
!
version_HG