|
FileLocator home / aFilename readStreamDo: [ :stream |
|
|
[ stream atEnd ] whileFalse: [
|
|
| line |
|
|
((line := stream nextLine) beginsWith: '>')
|
|
ifTrue: [
|
|
Transcript
|
|
cr;
|
|
show: (line copyFrom: 2 to: line size);
|
|
show: ': ' ]
|
|
ifFalse: [ Transcript show: line ] ] ]
|