The Trunk: Files-nice.69.mcz

Nicolas Cellier uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-nice.69.mcz

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

Name: Files-nice.69
Author: nice
Time: 26 February 2010, 12:32:47.031 am
UUID: 8f296974-f084-1042-bec7-e65a6083faf5
Ancestors: Files-cmm.68

Cuis 2.2 FileSteramRegistryFix
jmv: Register after setting name. Name is assumed to be defined for registered objects.

=============== Diff against Files-cmm.68 ===============

Item was changed:
  ----- Method: StandardFileStream>>open:forWrite: (in category 'open/close') -----
  open: fileName forWrite: writeMode
  "Open the file with the given name. If writeMode is true, allow writing, otherwise open the file in read-only mode."
  "Changed to do a GC and retry before failing ar 3/21/98 17:25"
  | f |
  f := fileName asVmPathName.
 
  fileID := StandardFileStream retryWithGC:[self primOpen: f writable: writeMode]
  until:[:id| id notNil]
  forFileNamed: fileName.
  fileID ifNil: [^ nil].  "allows sender to detect failure"
- self register.
  name := fileName.
+ self register.
  rwmode := writeMode.
  buffer1 := String new: 1.
  self enableReadBuffering
  !