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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCLRPTransition subclass:#PPCLRPTimeoutTransition

     6 	instanceVariableNames:'maxTime'

     7 	classVariableNames:''

     8 	poolDictionaries:''

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

    10 !

    11 

    12 !PPCLRPTimeoutTransition methodsFor:'printing'!

    13 

    14 printOn: aStream

    15 

    16     aStream nextPutAll: 'PPCLRPTimeoutTransition '.

    17     aStream nextPutAll: self name.

    18     aStream nextPutAll: ' : '.

    19     aStream nextPutAll: self from.

    20     aStream nextPutAll: '->'.

    21     aStream nextPutAll: self to.

    22     aStream nextPutAll: ' on '.

    23     aStream nextPutAll: self eventname asString.

    24 ! !

    25