--- a/ChangesBrowser.st Wed Jan 29 18:09:17 1997 +0100
+++ b/ChangesBrowser.st Wed Jan 29 18:48:25 1997 +0100
@@ -1671,7 +1671,7 @@
inStream isNil ifTrue:[^ false].
self withCursor:(Cursor write) do:[
- |excla sawExcla done dir chunk
+ |excla sawExcla done chunk
nChanges "{Class:SmallInteger}" |
excla := inStream class chunkSeparator.
@@ -1711,14 +1711,14 @@
].
outStream close.
inStream close.
- dir := FileDirectory currentDirectory.
- dir renameFile:changeFileName newName:(changeFileName , '.bak').
- dir renameFile:tempfile name newName:changeFileName.
+ changeFileName asFilename renameTo:(changeFileName , '.bak').
+ tempfile renameTo:changeFileName.
anyChanges := false
].
^ true
"Modified: 5.9.1996 / 17:20:26 / cg"
+ "Modified: 2.12.1996 / 22:29:15 / stefan"
! !
!ChangesBrowser methodsFor:'termination'!
@@ -2440,5 +2440,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.99 1997-01-21 21:29:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.100 1997-01-29 17:48:25 stefan Exp $'
! !