1 "{ Package: 'stx:goodies/petitparser/parsers/java' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PJBehaviouralNode subclass:#PJMethodDeclarationNode

     6 	instanceVariableNames:'body'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitJava-AST'

    10 !

    11 

    12 PJMethodDeclarationNode class instanceVariableNames:'aVisitor'

    13 

    14 "

    15  No other class instance variables are inherited by this class.

    16 "

    17 !

    18 

    19 PJMethodDeclarationNode comment:''

    20 !

    21 

    22 !PJMethodDeclarationNode methodsFor:'accessing'!

    23 

    24 body

    25 	^ body

    26 !

    27 

    28 body: anObject

    29 	body := anObject

    30 ! !

    31 

    32 !PJMethodDeclarationNode methodsFor:'visiting'!

    33 

    34 acceptVisitor: aVisitor

    35 

    36 	aVisitor visitMethodDeclarationNode: self

    37 ! !

    38