'From Squeakland 3.8.5976 of 25 August 2004 [latest update: #388] on 16 February 2005 at 12:32:46 pm'!

!GraphMorph methodsFor: '*sound' stamp: 'yo 2/16/2005 10:43'!
readDataFromFile

	| fileName |
	fileName _ FillInTheBlank
		request: 'File name?' translated
		initialAnswer: ''.
	fileName isEmpty ifTrue: [^ self].
	(StandardFileStream isAFileNamed: fileName) ifFalse: [
		^ self inform: 'Sorry, I cannot find that file' translated].
	self data: (SampledSound fromAIFFfileNamed: fileName) samples.

! !