'From etoys3.0 of 24 February 2008 [latest update: #2081] on 15 September 2008 at 11:06:18 am'!
"Change Set:		rewriteHGServDir
Date:			15 September 2008
Author:			Yoshiki Ohshima

This changeset simplifies some small ServerDirectory methods."!



!FileList2 methodsFor: 'own services' stamp: 'yo 8/28/2008 00:45'!
openProjectFromFile
	"Reconstitute a Morph from the selected file, presumed to be represent
	a Morph saved via the SmartRefStream mechanism, and open it in an
	appropriate Morphic world."

	ProjectViewMorph 
		openFromDirectory: directory 
		andFileName: fileName
! !


!ServerDirectory methodsFor: 'accessing' stamp: 'yo 8/28/2008 00:29'!
dirPathFor: fullName 
	"Return the directory part the given name."
	self
		splitName: fullName
		to: [:dirPath :localName | ^ dirPath]! !

!ServerDirectory methodsFor: 'testing' stamp: 'yo 8/28/2008 00:22'!
isRoot
	^ directory = '/'! !

!ServerDirectory methodsFor: 'file directory' stamp: 'yo 8/28/2008 00:29'!
containingDirectory

	^ self copy directory: (self dirPathFor: directory).

! !