'From Squeak3.9alpha of 4 July 2005 [latest update: #7032] on 31 May 2006 at 7:38:25 am'!

!FileList methodsFor: 'own services' stamp: 'edc 5/31/2006 07:37'!
viewContentsInWorkspace
	"View the contents of my selected file in a new workspace"
	
	| aString aFileStream aName |
	aString := (aFileStream := directory readOnlyFileNamed: self fullName) setConverterForCode contentsOfEntireFile.
	aName := aFileStream localName.
	aFileStream close.
	UIManager default edit: aString label: 'Workspace from ', aName! !