--- a/MessageTracer.st Sat May 18 16:18:41 1996 +0200
+++ b/MessageTracer.st Sat May 18 17:37:38 1996 +0200
@@ -368,7 +368,7 @@
onEntry:nil
onExit:[:con :retVal |
Transcript show:'leave Point>>scaleBy:; returning:'.
- Transcript showCr:retVal printString.
+ Transcript showCR:retVal printString.
Transcript endEntry
].
(1@2) scaleBy:5.
@@ -379,17 +379,17 @@
MessageTracer
wrapMethod:(Integer compiledMethodAt:#factorial)
onEntry:[:con |
- Transcript showCr:('entering ' , con receiver printString , '>>factorial').
+ Transcript showCR:('entering ' , con receiver printString , '>>factorial').
]
onExit:[:con :retVal |
Transcript show:'leave Integer>>factorial; returning:'.
- Transcript showCr:retVal printString.
+ Transcript showCR:retVal printString.
Transcript endEntry
].
- Transcript showCr:'5 factorial traced'.
+ Transcript showCR:'5 factorial traced'.
5 factorial.
MessageTracer untrapClass:Integer.
- Transcript showCr:'5 factorial normal'.
+ Transcript showCR:'5 factorial normal'.
5 factorial.
"
"
@@ -400,18 +400,18 @@
wrapMethod:(Integer compiledMethodAt:#factorial)
onEntry:[:con |
Transcript spaces:lvl. lvl := lvl + 2.
- Transcript showCr:('entering ' , con receiver printString , '>>factorial').
+ Transcript showCR:('entering ' , con receiver printString , '>>factorial').
]
onExit:[:con :retVal |
lvl := lvl - 2. Transcript spaces:lvl.
Transcript show:('leave ' , con receiver printString , '>>factorial; returning:').
- Transcript showCr:retVal printString.
+ Transcript showCR:retVal printString.
Transcript endEntry
].
- Transcript showCr:'5 factorial traced'.
+ Transcript showCR:'5 factorial traced'.
5 factorial.
MessageTracer untrapClass:Integer.
- Transcript showCr:'5 factorial normal'.
+ Transcript showCR:'5 factorial normal'.
5 factorial.
"
@@ -1090,7 +1090,7 @@
onEntry:nil
onExit:[:con :retVal |
Transcript show:'leave Point>>scaleBy:; returning:'.
- Transcript showCr:retVal printString.
+ Transcript showCR:retVal printString.
Transcript endEntry
].
(1@2) scaleBy:5.
@@ -1101,17 +1101,17 @@
MessageTracer
wrapMethod:(Integer compiledMethodAt:#factorial)
onEntry:[:con |
- Transcript showCr:('entering ' , con receiver printString , '>>factorial').
+ Transcript showCR:('entering ' , con receiver printString , '>>factorial').
]
onExit:[:con :retVal |
Transcript show:'leave Integer>>factorial; returning:'.
- Transcript showCr:retVal printString.
+ Transcript showCR:retVal printString.
Transcript endEntry
].
- Transcript showCr:'5 factorial traced'.
+ Transcript showCR:'5 factorial traced'.
5 factorial.
MessageTracer unwrapMethod:(Integer compiledMethodAt:#factorial).
- Transcript showCr:'5 factorial normal'.
+ Transcript showCR:'5 factorial normal'.
5 factorial.
"
"
@@ -1122,18 +1122,18 @@
wrapMethod:(Integer compiledMethodAt:#factorial)
onEntry:[:con |
Transcript spaces:lvl. lvl := lvl + 2.
- Transcript showCr:('entering ' , con receiver printString , '>>factorial').
+ Transcript showCR:('entering ' , con receiver printString , '>>factorial').
]
onExit:[:con :retVal |
lvl := lvl - 2. Transcript spaces:lvl.
Transcript show:('leave ' , con receiver printString , '>>factorial; returning:').
- Transcript showCr:retVal printString.
+ Transcript showCR:retVal printString.
Transcript endEntry
].
- Transcript showCr:'5 factorial traced'.
+ Transcript showCR:'5 factorial traced'.
5 factorial.
MessageTracer unwrapMethod:(Integer compiledMethodAt:#factorial).
- Transcript showCr:'5 factorial normal'.
+ Transcript showCR:'5 factorial normal'.
5 factorial.
"
@@ -1696,6 +1696,6 @@
!MessageTracer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.36 1996-05-18 13:56:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.37 1996-05-18 15:37:38 cg Exp $'
! !
MessageTracer initialize!