'From Jasmine-rc1 of 7 October 2004 [latest update: #95] on 18 October 2004 at 11:01:08 am'! "Change Set: FixUrlAgain3 Date: 18 October 2004 Author: Andreas Raab A third attempt at fixing FileUrl>>pathForFile."! !FileDirectory methodsFor: '*Croquet' stamp: 'ar 10/13/2004 17:54'! pathFromUrl: aFileUrl | first | ^String streamContents: [ :s | first := false. aFileUrl path do: [ :p | first ifTrue: [ s nextPut: self pathNameDelimiter ]. first _ true. s nextPutAll: p ] ].! ! !FileUrl methodsFor: 'access' stamp: 'ar 10/13/2004 17:54'! pathForFile "Path using local file system's delimiter. $\ or $:" ^FileDirectory default pathFromUrl: self! ! !UnixFileDirectory methodsFor: '*Croquet' stamp: 'ar 10/18/2004 10:58'! pathFromUrl: aFileUrl ^'/', (super pathFromUrl: aFileUrl)! !