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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCLRPContainedElement subclass:#PPCLRPComment

     6 	instanceVariableNames:'text'

     7 	classVariableNames:''

     8 	poolDictionaries:''

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

    10 !

    11 

    12 !PPCLRPComment class methodsFor:'instance creation'!

    13 

    14 text: aString

    15     ^ self new text: aString

    16 ! !

    17 

    18 !PPCLRPComment methodsFor:'accessing'!

    19 

    20 text

    21     ^ text

    22 !

    23 

    24 text: anObject

    25     text := anObject

    26 ! !

    27 

    28 !PPCLRPComment methodsFor:'as yet unclassified'!

    29 

    30 printOn: aStream

    31     aStream nextPutAll: 'PPCLRPComment : '.

    32     aStream nextPutAll: self text asString.

    33 ! !

    34