[Pkg] The Trunk: Files-tpr.123.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jun 22 00:40:50 UTC 2013

tim Rowledge uploaded a new version of Files to project The Trunk:

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

Name: Files-tpr.123
Author: tpr
Time: 21 June 2013, 5:40:33.465 pm
UUID: b3983780-394c-464b-8924-b70282415bfe
Ancestors: Files-fbs.122

Fix bug reported in mantis ttp://bugs.squeak.org/view.php?id=7740
FileTestUrl should now pass

=============== Diff against Files-fbs.122 ===============

Item was changed:
  ----- Method: AcornFileDirectory>>pathParts (in category 'path access') -----
  	"Return the path from the root of the file system to this directory as an 
  	array of directory names.
  	This version tries to cope with the RISC OS' strange filename formatting; 
  	where the $ needs to be considered part of the filingsystem-discname atom."
  	| pathList |
  	pathList := super pathParts.
  	(pathList indexOf: '$') = 2
  		ifTrue: ["if the second atom is root ($) then stick $ on the first atom 
  				and drop the second. Yuck"
+ 			^ pathList species
- 			^ Array
  				streamContents: [:a | 
  					a nextPut: (pathList at: 1), '/$'.
  					3 to: pathList size do: [:i | a
  								nextPut: (pathList at: i)]]].
  	^ pathList!

More information about the Packages mailing list