I don't know if this is a good idea, so it goes in the inbox.

Dave


On Sun, Sep 04, 2016 at 07:09:28PM +0000, commits at source.squeak.org wrote:
> David T. Lewis uploaded a new version of Files to project The Inbox:
> http://source.squeak.org/inbox/Files-dtl.166.mcz
> 
> ==================== Summary ====================
> 
> Name: Files-dtl.166
> Author: dtl
> Time: 4 September 2016, 3:09:29.495898 pm
> UUID: 85945e53-39b3-4300-a08c-d189a4b9960d
> Ancestors: Files-tfel.165
> 
> Let the Files package be  identical for Spur and V3 images by adding error handling in StandardFileStream>>binary and StandardFileStream>>ascii
> 
> =============== Diff against Files-tfel.165 ===============
> 
> Item was changed:
>   ----- Method: StandardFileStream>>ascii (in category 'properties-setting') -----
>   ascii
>   	"Read and/or write in ASCII mode."
>   	buffer1
>   		ifNil: [ buffer1 := ByteString new: 1 ]
> + 		ifNotNil: [ [ ByteString adoptInstance: buffer1 ]
> + 						on: Error "V3 image"
> + 						do: [ buffer1 := ByteString new: 1 ] ].
> + 	collection ifNotNil: [ [ ByteString adoptInstance: collection ]
> + 							on: Error
> + 							do: [ collection := collection asString ] ].
> - 		ifNotNil: [ ByteString adoptInstance: buffer1 ].
> - 	collection ifNotNil: [ ByteString adoptInstance: collection ].
>   	lastWritten ifNotNil:
>   		[ lastWritten isInteger ifTrue: [ lastWritten := lastWritten asCharacter ] ]!
> 
> Item was changed:
>   ----- Method: StandardFileStream>>binary (in category 'properties-setting') -----
>   binary
>   	"Read and/or write in binary mode."
>   	buffer1
>   		ifNil: [ buffer1 := ByteArray new: 1 ]
> + 		ifNotNil: [ [ ByteArray adoptInstance: buffer1 ]
> + 						on: Error "V3 image"
> + 						do: [ buffer1 := ByteArray new: 1 ] ].
> + 	collection ifNotNil: [ [ ByteArray adoptInstance: collection ]
> + 							on: Error
> + 							do: [ collection := collection asByteArray ] ].
> - 		ifNotNil: [ ByteArray adoptInstance: buffer1 ].
> - 	collection ifNotNil: [ ByteArray adoptInstance: collection ].
>   	lastWritten ifNotNil:
>   		[ lastWritten isCharacter ifTrue: [ lastWritten := lastWritten asInteger ] ]!
>