"{ Package: 'stx:libbasic3' }"

Change subclass:#FileInChange
	instanceVariableNames:'file'
	classVariableNames:''
	poolDictionaries:''
	category:'System-Changes'
!


!FileInChange class methodsFor:'instance creation'!

file: aStringOrFilename

    ^self new file: aStringOrFilename

    "Created: / 27-08-2009 / 10:36:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!FileInChange methodsFor:'accessing'!

file
    ^ file
!

file:aStringOrfFilename
    file := aStringOrfFilename.
! !

!FileInChange methodsFor:'printing & storing'!

printOn:aStream
    "append a printed representation if the receiver to the argument, aStream"

    aStream 
        nextPutAll:'FileIn: ';
        nextPutAll: file asString storeString

    "Modified: / 27-08-2009 / 10:35:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!FileInChange class methodsFor:'documentation'!

version_CVS
    ^ '§Header: /cvs/stx/stx/libbasic3/FileInChange.st,v 1.1 2011/06/28 21:15:15 vrany Exp §'
!

version_SVN
    ^ '$Id: FileInChange.st 1869 2012-01-29 11:53:49Z vranyj1 $'
! !