6 	instanceVariableNames:'name trigger triggerBlock'

     6 	instanceVariableNames:'name trigger triggerBlock'

     7 	classVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Extras-Tests-LRP'

     9 	category:'PetitCompiler-Extras-Tests-LRP'

    10 !

    10 !

    11 

    12 

    12 !PPCLRPEvent class methodsFor:'instance creation'!

    13 !PPCLRPEvent class methodsFor:'instance creation'!

    13 

    14 

    14 named: aString trigger: aBlock

    15 named: aString trigger: aBlock

    15     |retval|

    16     |retval|

    51 

    52 

    52 acceptVisitor: aPPCLRPNodeVisitor

    53 acceptVisitor: aPPCLRPNodeVisitor

    53     aPPCLRPNodeVisitor visitEventNode: self

    54     aPPCLRPNodeVisitor visitEventNode: self

    54 ! !

    55 ! !

    55 

    56