[Pkg] The Trunk: SMBase-gk.110.mcz

[commits at source.squeak.org]

Chris Muller uploaded a new version of SMBase to project The Trunk:
http://source.squeak.org/trunk/SMBase-gk.110.mcz

==================== Summary ====================

Name: SMBase-gk.110
Author: gk
Time: 12 April 2010, 1:00:20 am
UUID: ce768c9a-89ba-4cd8-803d-21f3f84de496
Ancestors: SMBase-gk.109

Backed out changes to file handling, not compatible with 3.8.

=============== Diff against SMBase-gk.109 ===============

Item was changed:
  ----- Method: SMAccount>>newFile:block: (in category 'files') -----
  newFile: fileName block: aBlock
  	"Create a new file. Let <aBlock> fill the file with content by calling it with a stream."
  
+ 	| dir stream |
- 	| dir |
  	dir := self uploadsDirectory.
+ 	[(dir fileExists: fileName) ifTrue:[dir deleteFileNamed: fileName].
+ 	stream := dir newFileNamed: fileName.
+ 	stream binary.
+ 	aBlock value: stream] ensure: [stream close]!
- 	(dir fileExists: fileName) ifTrue:[dir deleteFileNamed: fileName].
- 	dir newFileNamed: fileName do: [:stream |
- 		stream binary.
- 		aBlock value: stream]!

Item was changed:
  ----- Method: SMSqueakMap>>saveCheckpoint: (in category 'checkpoints') -----
  saveCheckpoint: contentWithFilename
  	"Save the map checkpoint to disk if it is not there already."
  
+ 	| file directory sz fname content |
- 	| directory sz fname content |
  	directory := self directory.
  	sz := contentWithFilename size.
  	fname := contentWithFilename last: sz - (contentWithFilename lastIndexOf: $:).
  	content := contentWithFilename first: sz - fname size - 1.
  	(directory fileExists: fname) ifFalse: [
+ 		[file := StandardFileStream newFileNamed: (directory fullNameFor: fname).
+ 		file nextPutAll: content]
+ 			ensure: [file close]]!
- 		StandardFileStream newFileNamed: (directory fullNameFor: fname) do: [ :file |
- 			file nextPutAll: content ] ]!