--- a/ClassOrganizer.st Sat May 18 16:18:41 1996 +0200
+++ b/ClassOrganizer.st Sat May 18 17:37:38 1996 +0200
@@ -145,7 +145,7 @@
selector := row at:idx.
m := class compiledMethodAt:selector.
m isNil ifTrue:[
- Transcript showCr:'no method for ' , selector , ' in ', class name
+ Transcript showCR:'no method for ' , selector , ' in ', class name
] ifFalse:[
m category:category.
]
@@ -204,5 +204,5 @@
!ClassOrganizer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.7 1996-05-09 13:47:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.8 1996-05-18 15:37:24 cg Exp $'
! !
--- a/HTMLDocumentView.st Sat May 18 16:18:41 1996 +0200
+++ b/HTMLDocumentView.st Sat May 18 17:37:38 1996 +0200
@@ -183,9 +183,9 @@
"/ ]
].
- "/ Transcript showCr:'currentDir = ' , currentDirectoryName.
- "/ Transcript showCr:'current = ' , currentDocument.
- "/ Transcript showCr:'on ' , anchor printString.
+ "/ Transcript showCR:'currentDir = ' , currentDirectoryName.
+ "/ Transcript showCR:'current = ' , currentDocument.
+ "/ Transcript showCR:'on ' , anchor printString.
newDocHeight := self heightOfContents.
newDocWidth := self widthOfContents.
@@ -203,8 +203,8 @@
showDocument:anchorHref text:anchorText action:action remember:rem source:source
|rest localAnchor method file idx text found|
- "/ Transcript show:'anchor selected text='; showCr:anchorText.
- "/ Transcript show:'anchor selected href='; showCr:anchorHref.
+ "/ Transcript show:'anchor selected text='; showCR:anchorText.
+ "/ Transcript show:'anchor selected href='; showCR:anchorHref.
anchorHref notNil ifTrue:[
method := 'file'.
@@ -299,8 +299,8 @@
].
localAnchor notNil ifTrue:[
- "/ Transcript showCr:'local: ' , localAnchor.
- "/ Transcript show:'id='; showCr:(self anchorToId:localAnchor).
+ "/ Transcript showCR:'local: ' , localAnchor.
+ "/ Transcript show:'id='; showCR:(self anchorToId:localAnchor).
self positionOnAnchor:localAnchor.
].
currentLocalAnchor := localAnchor
@@ -415,7 +415,7 @@
fileName exists ifFalse:[
"/ if we are in an action, try homeDir as well
"/ makes life so much easier.
- "/ Transcript showCr:'try home'.
+ "/ Transcript showCR:'try home'.
(urlString startsWith:'/') ifFalse:[
fileName := (topDirectoryName , '/' , urlString) asFilename.
].
@@ -423,18 +423,18 @@
path := fileName pathName.
"/ Transcript show:'image resolve: ' , urlString.
- "/ Transcript showCr:' -> ' , path.
+ "/ Transcript showCR:' -> ' , path.
CachedImages notNil ifTrue:[
image := CachedImages at:path ifAbsent:nil.
image notNil ifTrue:[
- "/ Transcript showCr:'cached image ' , urlString.
+ "/ Transcript showCR:'cached image ' , urlString.
].
].
image isNil ifTrue:[
fileName exists ifTrue:[
- "/ Transcript showCr:'exists as ', path.
+ "/ Transcript showCR:'exists as ', path.
image := Image fromFile:path.
image isNil ifTrue:[
^ nil
@@ -578,5 +578,5 @@
!HTMLDocumentView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HTMLDocumentView.st,v 1.1 1996-05-17 16:58:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HTMLDocumentView.st,v 1.2 1996-05-18 15:37:26 cg Exp $'
! !
--- a/HistMgr.st Sat May 18 16:18:41 1996 +0200
+++ b/HistMgr.st Sat May 18 17:37:38 1996 +0200
@@ -211,7 +211,7 @@
"End reached - now try to make a HistoryLine"
aHistoryString := (aReadWriteStream contents) reverse.
"
- Transcript showCr: aHistoryString.
+ Transcript showCR: aHistoryString.
"
h := HistoryLine fromString: aHistoryString at: position.
h notNil ifTrue:[
@@ -419,11 +419,11 @@
fileInOrRecompiling := Class updateChangeFileQuerySignal raise.
"/ changedObject isMeta ifTrue:[
-"/ Transcript showCr: 'metaClass = ', changedObject printString.
+"/ Transcript showCR: 'metaClass = ', changedObject printString.
"/ ].
fileInOrRecompiling ifFalse:[
-"/ Transcript showCr: '* noChange in history'.
+"/ Transcript showCR: '* noChange in history'.
^ self
].
historyMode ifFalse:[
@@ -441,7 +441,7 @@
"this is a sub item of #definition"
(something == #classVariables) ifTrue:[
"
- Transcript showCr: 'classVariables changed'.
+ Transcript showCR: 'classVariables changed'.
"
"/ does not yet work;
"/ (someArgument does not contain the class we are interested in)
@@ -480,7 +480,7 @@
sourceCode := changedObject sourceCodeAt:selector.
sourceCode isNil ifTrue:[
"method has been deleted"
-"/ Transcript showCr: 'method has been deleted'.
+"/ Transcript showCR: 'method has been deleted'.
] ifFalse:[
newMethod := changedObject compiledMethodAt:selector.
@@ -498,7 +498,7 @@
or:[newMethod category ~= 'documentation']) ifTrue:[
sourceCode := self addHistoryTo:sourceCode forceModification:(oldMethod notNil) forceCreation:(oldMethod isNil).
newMethod source: sourceCode.
-"/ Transcript showCr: 'history updated / added'.
+"/ Transcript showCR: 'history updated / added'.
]
].
^self
@@ -523,6 +523,6 @@
!HistoryManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.27 1996-04-30 09:10:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/Attic/HistMgr.st,v 1.28 1996-05-18 15:37:29 cg Exp $'
! !
HistoryManager initialize!
--- a/HistoryManager.st Sat May 18 16:18:41 1996 +0200
+++ b/HistoryManager.st Sat May 18 17:37:38 1996 +0200
@@ -211,7 +211,7 @@
"End reached - now try to make a HistoryLine"
aHistoryString := (aReadWriteStream contents) reverse.
"
- Transcript showCr: aHistoryString.
+ Transcript showCR: aHistoryString.
"
h := HistoryLine fromString: aHistoryString at: position.
h notNil ifTrue:[
@@ -419,11 +419,11 @@
fileInOrRecompiling := Class updateChangeFileQuerySignal raise.
"/ changedObject isMeta ifTrue:[
-"/ Transcript showCr: 'metaClass = ', changedObject printString.
+"/ Transcript showCR: 'metaClass = ', changedObject printString.
"/ ].
fileInOrRecompiling ifFalse:[
-"/ Transcript showCr: '* noChange in history'.
+"/ Transcript showCR: '* noChange in history'.
^ self
].
historyMode ifFalse:[
@@ -441,7 +441,7 @@
"this is a sub item of #definition"
(something == #classVariables) ifTrue:[
"
- Transcript showCr: 'classVariables changed'.
+ Transcript showCR: 'classVariables changed'.
"
"/ does not yet work;
"/ (someArgument does not contain the class we are interested in)
@@ -480,7 +480,7 @@
sourceCode := changedObject sourceCodeAt:selector.
sourceCode isNil ifTrue:[
"method has been deleted"
-"/ Transcript showCr: 'method has been deleted'.
+"/ Transcript showCR: 'method has been deleted'.
] ifFalse:[
newMethod := changedObject compiledMethodAt:selector.
@@ -498,7 +498,7 @@
or:[newMethod category ~= 'documentation']) ifTrue:[
sourceCode := self addHistoryTo:sourceCode forceModification:(oldMethod notNil) forceCreation:(oldMethod isNil).
newMethod source: sourceCode.
-"/ Transcript showCr: 'history updated / added'.
+"/ Transcript showCR: 'history updated / added'.
]
].
^self
@@ -523,6 +523,6 @@
!HistoryManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.27 1996-04-30 09:10:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.28 1996-05-18 15:37:29 cg Exp $'
! !
HistoryManager initialize!
--- 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!
--- a/MsgTracer.st Sat May 18 16:18:41 1996 +0200
+++ b/MsgTracer.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/Attic/MsgTracer.st,v 1.36 1996-05-18 13:56:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/Attic/MsgTracer.st,v 1.37 1996-05-18 15:37:38 cg Exp $'
! !
MessageTracer initialize!