--- 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!