Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mostly filename changes
authorClaus Gittinger <cg@exept.de>
Mon, 15 Sep 1997 23:06:52 +0200
changeset 1316 3fefcc2e9b16
parent 1315 54de2a39b738
child 1317 da5150d4d2ec
mostly filename changes
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions
CBrowser.st file | annotate | diff | comparison | revisions
ChangesBrowser.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Mon Sep 15 22:04:22 1997 +0200
+++ b/BrowserView.st	Mon Sep 15 23:06:52 1997 +0200
@@ -660,7 +660,7 @@
     ].
 
     fileName := currentClassCategory asString.
-    fileName replaceAll:Character space by:$_.
+    fileName replaceAll:Character space with:$_.
     "
      this test allows a smalltalk to be built without Projects/ChangeSets
     "
@@ -1867,7 +1867,7 @@
                         s := nil
                     ] ifFalse:[
                         (s includes:$") ifTrue:[
-                            s := s copy replaceAll:$" by:$'.
+                            s := s copy replaceAll:$" with:$'.
                         ].
                         isComment := true
                     ]
@@ -6143,7 +6143,7 @@
         |fileName outStream|
 
         fileName := currentMethodCategory , '.st'.
-        fileName replaceAll:Character space by:$_.
+        fileName replaceAll:Character space with:$_.
         "
          this test allows a smalltalk to be built without Projects/ChangeSets
         "
@@ -8663,7 +8663,7 @@
     |owner nm ns|
 
     aClass isJavaClass ifTrue:[
-        ^ aClass fullName "/ asString replaceAll:$/ by:$.
+        ^ aClass fullName "/ asString replaceAll:$/ with:$.
     ].
 
     "/ in which nameSpace is that class (or its owner) ?
@@ -10563,6 +10563,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.338 1997-09-10 21:16:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.339 1997-09-15 21:06:28 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Mon Sep 15 22:04:22 1997 +0200
+++ b/BrwsrView.st	Mon Sep 15 23:06:52 1997 +0200
@@ -660,7 +660,7 @@
     ].
 
     fileName := currentClassCategory asString.
-    fileName replaceAll:Character space by:$_.
+    fileName replaceAll:Character space with:$_.
     "
      this test allows a smalltalk to be built without Projects/ChangeSets
     "
@@ -1867,7 +1867,7 @@
                         s := nil
                     ] ifFalse:[
                         (s includes:$") ifTrue:[
-                            s := s copy replaceAll:$" by:$'.
+                            s := s copy replaceAll:$" with:$'.
                         ].
                         isComment := true
                     ]
@@ -6143,7 +6143,7 @@
         |fileName outStream|
 
         fileName := currentMethodCategory , '.st'.
-        fileName replaceAll:Character space by:$_.
+        fileName replaceAll:Character space with:$_.
         "
          this test allows a smalltalk to be built without Projects/ChangeSets
         "
@@ -8663,7 +8663,7 @@
     |owner nm ns|
 
     aClass isJavaClass ifTrue:[
-        ^ aClass fullName "/ asString replaceAll:$/ by:$.
+        ^ aClass fullName "/ asString replaceAll:$/ with:$.
     ].
 
     "/ in which nameSpace is that class (or its owner) ?
@@ -10563,6 +10563,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.338 1997-09-10 21:16:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.339 1997-09-15 21:06:28 cg Exp $'
 ! !
 BrowserView initialize!
--- a/CBrowser.st	Mon Sep 15 22:04:22 1997 +0200
+++ b/CBrowser.st	Mon Sep 15 23:06:52 1997 +0200
@@ -1726,7 +1726,7 @@
      That way, if anything happens, either the original file is left unchanged,
      or we have at least a backup of the previous change file."
 
-    |inStream outStream tempfile stamp|
+    |inStream outStream tempfile stamp f|
 
     editingClassSource ifTrue:[
         (self confirm:'You are editing a classes sourceFile (not a changeFile) !!\\Are you certain, you want to overwrite it ?' withCRs)
@@ -1795,7 +1795,8 @@
             inStream close.
         ].
 
-        changeFileName asFilename renameTo:(changeFileName , '.bak').
+	f := changeFileName asFilename.
+	f renameTo:(changeFileName withSuffix:'bak').
         tempfile renameTo:changeFileName.
         anyChanges := false
     ].
@@ -2583,5 +2584,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.116 1997-08-18 14:45:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.117 1997-09-15 21:06:52 cg Exp $'
 ! !
--- a/ChangesBrowser.st	Mon Sep 15 22:04:22 1997 +0200
+++ b/ChangesBrowser.st	Mon Sep 15 23:06:52 1997 +0200
@@ -1726,7 +1726,7 @@
      That way, if anything happens, either the original file is left unchanged,
      or we have at least a backup of the previous change file."
 
-    |inStream outStream tempfile stamp|
+    |inStream outStream tempfile stamp f|
 
     editingClassSource ifTrue:[
         (self confirm:'You are editing a classes sourceFile (not a changeFile) !!\\Are you certain, you want to overwrite it ?' withCRs)
@@ -1795,7 +1795,8 @@
             inStream close.
         ].
 
-        changeFileName asFilename renameTo:(changeFileName , '.bak').
+	f := changeFileName asFilename.
+	f renameTo:(changeFileName withSuffix:'bak').
         tempfile renameTo:changeFileName.
         anyChanges := false
     ].
@@ -2583,5 +2584,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.116 1997-08-18 14:45:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.117 1997-09-15 21:06:52 cg Exp $'
 ! !
hg/stx-libtool