'From etoys4.0 of 9 October 2008 [latest update: #2316] on 17 September 2009 at 6:17:19 pm'!

!FileList2 methodsFor: 'private' stamp: 'yo 9/17/2009 18:16'!
directoryNamesFor: item
	"item may be file directory or server directory"
	| entries |
	entries _ [item directoryNames] on: Error do: [:ex |
		(ex isKindOf: NetworkError)
			ifTrue: [self inform: 'Network Error' translated]
			ifFalse: [(ex isKindOf: ProtocolClientError)
				ifTrue: [self loginHit]
				ifFalse: [(ex isMemberOf: InvalidDirectoryError) ifTrue: [ex outer] ifFalse: [self inform: 'Unknown Error' translated]]].
		^ #()].
	dirSelectionBlock ifNotNil:[entries _ entries select: dirSelectionBlock].
	^entries

! !

!FileList2 methodsFor: 'private' stamp: 'yo 9/17/2009 18:16'!
setSelectedDirectoryTo: aFileDirectoryWrapper

	currentDirectorySelected _ aFileDirectoryWrapper.
	[self directory: aFileDirectoryWrapper withoutListWrapper] on: Error do: [:ex |
		(ex isKindOf: NetworkError)
			ifTrue: [self inform: 'Network Error' translated]
			ifFalse: [(ex isKindOf: ProtocolClientError)
				ifTrue: [self loginHit]
				ifFalse: [(ex isMemberOf: InvalidDirectoryError) ifTrue: [ex outer] ifFalse: [self inform: 'Unknown Error' translated]]].
		^ self].
	brevityState := #FileList.
	"self addPath: path."
	self changed: #fileList.
	self changed: #contents.
	self changed: #currentDirectorySelected.! !