"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"

"{ NameSpace: Smalltalk }"

PPCLRPContainedElement subclass:#PPCLRPEvent
	instanceVariableNames:'name trigger triggerBlock'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Extras-Tests-LRP'
!

!PPCLRPEvent class methodsFor:'instance creation'!

named: aString trigger: aBlock
    |retval|
    retval := self new.
    retval name: aString.
    retval trigger: aBlock.
    ^ retval
! !

!PPCLRPEvent methodsFor:'accessing'!

name
    ^ name
!

name: anObject
    name := anObject
!

trigger
    ^ trigger
!

trigger: anObject
    trigger := anObject
! !

!PPCLRPEvent methodsFor:'printing'!

printOn: aStream
    aStream nextPutAll: 'PPCLRPEvent '.
    aStream nextPutAll: self name.
    aStream nextPutAll: ' : '.
    aStream nextPutAll: self trigger asString.
    
! !

!PPCLRPEvent methodsFor:'visiting'!

acceptVisitor: aPPCLRPNodeVisitor
    aPPCLRPNodeVisitor visitEventNode: self
! !