--- a/ChangesBrowser.st Tue Feb 25 11:43:18 2003 +0100
+++ b/ChangesBrowser.st Tue Feb 25 12:48:10 2003 +0100
@@ -2188,7 +2188,7 @@
(changeNr between:1 and:changePositions size) ifFalse:[^ nil].
aStream := FileStream readonlyFileNamed:changeFileName.
aStream isNil ifTrue:[^ nil].
- aStream position:(changePositions at:changeNr).
+ aStream position1Based:(changePositions at:changeNr).
^ aStream
! !
@@ -2311,7 +2311,7 @@
get a chunk (separated by excla)
"
aStream skipSeparators.
- chunkPos := aStream position.
+ chunkPos := aStream position1Based.
sawExcla := aStream peekFor:excla.
@@ -2650,7 +2650,7 @@
first := true.
[done] whileFalse:[
changeDelta := ' '.
- methodPos := aStream position.
+ methodPos := aStream position1Based.
text := aStream nextChunk.
done := text isNil or:[text isEmpty].
@@ -2848,7 +2848,7 @@
nChanges := self numberOfChanges.
1 to:nChanges do:[:index |
- inStream position:(changePositions at:index).
+ inStream position1Based:(changePositions at:index).
sawExcla := inStream peekFor:excla.
chunk := inStream nextChunk.
@@ -3512,7 +3512,7 @@
excla := aStream class chunkSeparator.
[changeNr >= 1] whileTrue:[
- aStream position:(changePositions at:changeNr).
+ aStream position1Based:(changePositions at:changeNr).
sawExcla := aStream peekFor:excla.
chunk := aStream nextChunk.
sawExcla ifTrue:[
@@ -3563,7 +3563,7 @@
] ifFalse:[
CompressSnapshotInfo == true ifTrue:[
(chunk startsWith:snapshotPrefix) ifTrue:[
- str := chunk readStream position:snapshotNameIndex.
+ str := chunk readStream position1Based:snapshotNameIndex.
fileName := str upTo:(Character space).
"
kludge to allow use of match-check below
@@ -5466,5 +5466,5 @@
!ChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.287 2003-01-27 15:55:49 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.288 2003-02-25 11:48:10 cg Exp $'
! !