--- a/ChangesBrowser.st Sat May 18 15:50:08 1996 +0200
+++ b/ChangesBrowser.st Sat May 18 15:52:10 1996 +0200
@@ -746,7 +746,7 @@
oldMethod := thisClass compiledMethodAt:sel.
oldMethod notNil ifTrue:[
(oldMethod category = cat) ifFalse:[
- Transcript showCr:'category changed.'.
+ Transcript showCR:'category changed.'.
].
oldSource := oldMethod source.
(oldSource = newSource) ifTrue:[
@@ -812,7 +812,7 @@
].
"Created: 24.11.1995 / 14:30:46 / cg"
- "Modified: 30.4.1996 / 11:01:44 / cg"
+ "Modified: 18.5.1996 / 15:41:44 / cg"
!
contractClass:className selector:selector to:maxLen
@@ -1287,7 +1287,7 @@
].
done ifFalse:[
first ifFalse:[
- Transcript showCr:'only one method per ''methodsFor:'' handled'.
+ Transcript showCR:'only one method per ''methodsFor:'' handled'.
] ifTrue:[
first := false.
"
@@ -1384,7 +1384,7 @@
self checkIfFileHasChanged
"Modified: 27.8.1995 / 23:06:55 / claus"
- "Modified: 14.12.1995 / 20:58:35 / cg"
+ "Modified: 18.5.1996 / 15:41:46 / cg"
!
selectorOfMethodChange:changeNr
@@ -2187,5 +2187,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.78 1996-04-30 09:10:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.79 1996-05-18 13:52:10 cg Exp $'
! !