Am 22.03.2004 um 15:23 schrieb John M McIntosh:
Right and I'll resubmit the patch that might fix it, someone might want to test (again) and then someone might want to stick it in the update stream. Plus for completeness I'll attach the sunit test stephane ducasse & Karl Ramberg wrote to test it
I don't think that'll work. Consider this:
FileDirectory default --> MacHFSPlusFileDirectory on 'Macintosh HD:Users:bert:Squeak'
FileDirectory default directoryNamed: 'Macintosh HD:bla' --> MacHFSPlusFileDirectory on 'Macintosh HD:bla'
So far, so fine. But:
FileDirectory default directoryNamed: 'Macintosh HD' --> MacHFSPlusFileDirectory on 'Macintosh HD:Users:bert:Squeak:Macintosh HD'
instead of
--> MacHFSPlusFileDirectory on 'Macintosh HD'
as your #isAbsolute: would imply.
Unfortunately, this idiom is used everywhere to look into subdirectories of the image directory.
!MacFileDirectory class methodsFor: 'class initialization' stamp: 'JMM 6/18/2003 23:33'! isAbsolute: fileName "[...]" fileName first = $: ifTrue: [^false]. (fileName includes: $:) ifTrue: [^true]. (fileName size > 0) ifTrue: [^true]. ^false! !
TerseMan sayz:
isAbsolute: fileName ^fileName first ~= $:
... which is absolutely equivalent to the code above ;-)
- Bert -