'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 13 August 2008 at 8:57:40 am'!

!Form class methodsFor: 'instance creation' stamp: 'jmv 8/11/2008 12:31'!
fromFileNamedOrNil: fileName
	"Read a Form or ColorForm from the given file."

	| file form |
	file _ FileStream oldFileOrNoneNamed: fileName.
	file isNil ifTrue: [ ^ nil ].
	[
		file binary.
		form _ self fromBinaryStream: file] 
			ensure: [ file close ].
	^ form
! !

