--- a/MessageTracer.st Tue Sep 10 15:47:11 1996 +0200
+++ b/MessageTracer.st Tue Sep 10 20:08:29 1996 +0200
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 22:12:28' !
-
Object subclass:#MessageTracer
instanceVariableNames:'traceDetail'
classVariableNames:'BreakpointSignal CallingLevel BreakBlock TraceSenderBlock
@@ -339,7 +337,7 @@
"
if not already trapping, create a new class
"
- orgClass category == #trapping ifTrue:[
+ orgClass category == #'* trapping *' ifTrue:[
dict at:aSelector put:trapMethod.
orgClass methodDictionary:dict.
newClass := orgClass superclass.
@@ -359,7 +357,7 @@
orgClass setSuperclass:newClass.
orgClass setClassVariableString:''.
orgClass setInstanceVariableString:''.
- orgClass category:#trapping.
+ orgClass category:#'* trapping *'.
dict := MethodDictionary new:1.
dict at:aSelector put:trapMethod.
@@ -425,8 +423,8 @@
5 factorial.
"
- "Modified: 13.12.1995 / 16:05:26 / cg"
"Modified: 25.6.1996 / 22:01:05 / stefan"
+ "Modified: 10.9.1996 / 20:07:01 / cg"
! !
!MessageTracer class methodsFor:'cleanup'!
@@ -563,7 +561,7 @@
|orgClass|
- aClass category == #trapping ifFalse:[
+ aClass category == #'* trapping *' ifFalse:[
^ self
].
orgClass := aClass superclass.
@@ -581,6 +579,7 @@
"
"Modified: 5.6.1996 / 13:57:39 / stefan"
+ "Modified: 10.9.1996 / 20:06:23 / cg"
!
untrapClass:aClass selector:aSelector
@@ -588,7 +587,7 @@
|dict|
- aClass category == #trapping ifFalse:[
+ aClass category == #'* trapping *' ifFalse:[
^ self
].
@@ -620,6 +619,7 @@
"
"Modified: 5.6.1996 / 14:00:55 / stefan"
+ "Modified: 10.9.1996 / 20:06:29 / cg"
!
untrapMethod:aMethod
@@ -1326,8 +1326,8 @@
|orgClass|
orgClass := anObject class.
- orgClass category == #trapping ifFalse:[
- ^ self
+ orgClass category == #'* trapping *' ifFalse:[
+ ^ self
].
anObject changeClassTo:orgClass superclass
@@ -1344,6 +1344,8 @@
p y:2.
p x:1.
"
+
+ "Modified: 10.9.1996 / 20:06:07 / cg"
!
untrap:anObject selector:aSelector
@@ -1352,7 +1354,7 @@
|orgClass idx sels dict|
orgClass := anObject class.
- orgClass category == #trapping ifFalse:[^ self].
+ orgClass category == #'* trapping *' ifFalse:[^ self].
dict := orgClass methodDictionary.
dict at:aSelector ifAbsent:[^ self].
@@ -1386,6 +1388,7 @@
"
"Modified: 5.6.1996 / 13:56:08 / stefan"
+ "Modified: 10.9.1996 / 20:06:14 / cg"
! !
!MessageTracer class methodsFor:'object tracing'!
@@ -1594,7 +1597,7 @@
but only if not already being trapped.
"
orgClass := anObject class.
- orgClass category == #trapping ifTrue:[
+ orgClass category == #'* trapping *' ifTrue:[
newClass := orgClass
] ifFalse:[
myMetaclass := orgClass class.
@@ -1606,7 +1609,7 @@
newClass setClassVariableString:''.
newClass setInstanceVariableString:''.
newClass setName:orgClass name.
- newClass category:#trapping.
+ newClass category:#'* trapping *'.
newClass methodDictionary:MethodDictionary new.
].
@@ -1730,8 +1733,8 @@
[exEnd]
"
- "Modified: 18.5.1996 / 15:42:55 / cg"
"Modified: 25.6.1996 / 22:11:21 / stefan"
+ "Modified: 10.9.1996 / 20:06:54 / cg"
!
wrap:anObject selectors:aCollection onEntry:entryBlock onExit:exitBlock
@@ -1845,6 +1848,6 @@
!MessageTracer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.42 1996-06-28 15:32:27 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.43 1996-09-10 18:08:29 cg Exp $'
! !
MessageTracer initialize!
--- a/MsgTracer.st Tue Sep 10 15:47:11 1996 +0200
+++ b/MsgTracer.st Tue Sep 10 20:08:29 1996 +0200
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 22:12:28' !
-
Object subclass:#MessageTracer
instanceVariableNames:'traceDetail'
classVariableNames:'BreakpointSignal CallingLevel BreakBlock TraceSenderBlock
@@ -339,7 +337,7 @@
"
if not already trapping, create a new class
"
- orgClass category == #trapping ifTrue:[
+ orgClass category == #'* trapping *' ifTrue:[
dict at:aSelector put:trapMethod.
orgClass methodDictionary:dict.
newClass := orgClass superclass.
@@ -359,7 +357,7 @@
orgClass setSuperclass:newClass.
orgClass setClassVariableString:''.
orgClass setInstanceVariableString:''.
- orgClass category:#trapping.
+ orgClass category:#'* trapping *'.
dict := MethodDictionary new:1.
dict at:aSelector put:trapMethod.
@@ -425,8 +423,8 @@
5 factorial.
"
- "Modified: 13.12.1995 / 16:05:26 / cg"
"Modified: 25.6.1996 / 22:01:05 / stefan"
+ "Modified: 10.9.1996 / 20:07:01 / cg"
! !
!MessageTracer class methodsFor:'cleanup'!
@@ -563,7 +561,7 @@
|orgClass|
- aClass category == #trapping ifFalse:[
+ aClass category == #'* trapping *' ifFalse:[
^ self
].
orgClass := aClass superclass.
@@ -581,6 +579,7 @@
"
"Modified: 5.6.1996 / 13:57:39 / stefan"
+ "Modified: 10.9.1996 / 20:06:23 / cg"
!
untrapClass:aClass selector:aSelector
@@ -588,7 +587,7 @@
|dict|
- aClass category == #trapping ifFalse:[
+ aClass category == #'* trapping *' ifFalse:[
^ self
].
@@ -620,6 +619,7 @@
"
"Modified: 5.6.1996 / 14:00:55 / stefan"
+ "Modified: 10.9.1996 / 20:06:29 / cg"
!
untrapMethod:aMethod
@@ -1326,8 +1326,8 @@
|orgClass|
orgClass := anObject class.
- orgClass category == #trapping ifFalse:[
- ^ self
+ orgClass category == #'* trapping *' ifFalse:[
+ ^ self
].
anObject changeClassTo:orgClass superclass
@@ -1344,6 +1344,8 @@
p y:2.
p x:1.
"
+
+ "Modified: 10.9.1996 / 20:06:07 / cg"
!
untrap:anObject selector:aSelector
@@ -1352,7 +1354,7 @@
|orgClass idx sels dict|
orgClass := anObject class.
- orgClass category == #trapping ifFalse:[^ self].
+ orgClass category == #'* trapping *' ifFalse:[^ self].
dict := orgClass methodDictionary.
dict at:aSelector ifAbsent:[^ self].
@@ -1386,6 +1388,7 @@
"
"Modified: 5.6.1996 / 13:56:08 / stefan"
+ "Modified: 10.9.1996 / 20:06:14 / cg"
! !
!MessageTracer class methodsFor:'object tracing'!
@@ -1594,7 +1597,7 @@
but only if not already being trapped.
"
orgClass := anObject class.
- orgClass category == #trapping ifTrue:[
+ orgClass category == #'* trapping *' ifTrue:[
newClass := orgClass
] ifFalse:[
myMetaclass := orgClass class.
@@ -1606,7 +1609,7 @@
newClass setClassVariableString:''.
newClass setInstanceVariableString:''.
newClass setName:orgClass name.
- newClass category:#trapping.
+ newClass category:#'* trapping *'.
newClass methodDictionary:MethodDictionary new.
].
@@ -1730,8 +1733,8 @@
[exEnd]
"
- "Modified: 18.5.1996 / 15:42:55 / cg"
"Modified: 25.6.1996 / 22:11:21 / stefan"
+ "Modified: 10.9.1996 / 20:06:54 / cg"
!
wrap:anObject selectors:aCollection onEntry:entryBlock onExit:exitBlock
@@ -1845,6 +1848,6 @@
!MessageTracer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.42 1996-06-28 15:32:27 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.43 1996-09-10 18:08:29 cg Exp $'
! !
MessageTracer initialize!