"{ Package: 'stx:goodies/ston' }"

"{ NameSpace: Smalltalk }"

FileReference subclass:#STONFileReference
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'STON-Core-Reader'
!

!STONFileReference class methodsFor:'ston'!

fromSton: stonReader
        ^ stonReader parseListSingleton asFilename.

    "Modified: / 20-05-2020 / 12:41:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

stonName
	^ #FILE
! !