[squeak-dev] 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:
http://source.squeak.org/trunk/Files-tpr.123.mcz
==================== 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') -----
pathParts
"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;
filesystem::discname/$/path/to/file
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 Squeak-dev
mailing list
|