--- a/ClassDescr.st Mon Sep 15 22:20:52 1997 +0200
+++ b/ClassDescr.st Mon Sep 15 22:24:58 1997 +0200
@@ -1051,7 +1051,7 @@
|aStream fileName|
fileName := self name , '-' , aCategory , '.st'.
- fileName replaceAll:(Character space) by:$_.
+ fileName replaceAll:(Character space) with:$_.
"
this test allows a smalltalk to be built without Projects/ChangeSets
@@ -1182,7 +1182,7 @@
selector := self selectorAtMethod:aMethod.
selector notNil ifTrue:[
fileName := self name , '-' , selector, '.st'.
- fileName replaceAll:$: by:$_.
+ fileName replaceAll:$: with:$_.
"
this test allows a smalltalk to be built without Projects/ChangeSets
"
@@ -2523,6 +2523,6 @@
!ClassDescription class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.53 1997-09-02 17:40:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.54 1997-09-15 20:24:58 cg Exp $'
! !
ClassDescription initialize!
--- a/ClassDescription.st Mon Sep 15 22:20:52 1997 +0200
+++ b/ClassDescription.st Mon Sep 15 22:24:58 1997 +0200
@@ -1051,7 +1051,7 @@
|aStream fileName|
fileName := self name , '-' , aCategory , '.st'.
- fileName replaceAll:(Character space) by:$_.
+ fileName replaceAll:(Character space) with:$_.
"
this test allows a smalltalk to be built without Projects/ChangeSets
@@ -1182,7 +1182,7 @@
selector := self selectorAtMethod:aMethod.
selector notNil ifTrue:[
fileName := self name , '-' , selector, '.st'.
- fileName replaceAll:$: by:$_.
+ fileName replaceAll:$: with:$_.
"
this test allows a smalltalk to be built without Projects/ChangeSets
"
@@ -2523,6 +2523,6 @@
!ClassDescription class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.53 1997-09-02 17:40:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.54 1997-09-15 20:24:58 cg Exp $'
! !
ClassDescription initialize!