'From Squeak 1.1 of September 21, 1996 on 27 October 1996 at 5:00:03 pm'!

FileDirectory subclass: #DosFileDirectory
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'System-Files'!

!DosFileDirectory methodsFor: 'name service'!
topDirectoryName
	"Answer the file list's name for the top (root) directory.
	10/25/96 ar"
	^'Drives'!
topDirectoryPath
	"Answer the path to the top (root) directory.
	Return an empty string - this is recognized
	by the VM to be the list of all available drives.
	10/25/96 ar"
	^''! !

!DosFileDirectory methodsFor: 'file creation'!
fileClass
	^ StandardFileStream! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

DosFileDirectory class!

!DosFileDirectory class methodsFor: 'initialization'!
pathNameDelimiter
	^ $\!
setMacFileNamed: fileName type: typeString creator: creatorString
	"Mac specific; noop on other platforms."! !