Object subclass: #Adam
	"Allow files to be edited from within SmallTalk."
	  instanceVariableNames: ''
	  classVariableNames: 'lastFileNam'
	  poolDictionaries: ''
	  category: nil.
!

!Adam class methodsFor: 'editing' !

file: aString
    lastFileNam _ aString.
    ^Smalltalk system: 'adam ', lastFileNam
!

cur
	^Smalltalk system: 'adam ', lastFileNam
!

fileIn: aString
    lastFileNam _ aString.
    Smalltalk system: 'adam ', lastFileNam.
    ^FileStream fileIn: lastFileNam
!

curIn
	Smalltalk system: 'adam ', lastFileNam.
	^FileStream fileIn: lastFileNam
!

lastFile
    ^lastFileNam
!!