"{ Package: 'stx:goodies/petitparser/parsers/java' }"
"{ NameSpace: Smalltalk }"
PJStatementNode subclass:#PJWhileStatementNode
instanceVariableNames:'expression statement'
classVariableNames:''
poolDictionaries:''
category:'PetitJava-AST'
!
PJWhileStatementNode comment:'Node representing a while loop'
!
!PJWhileStatementNode methodsFor:'accessing'!
expression
^ expression
!
expression: anObject
expression := anObject
!
statement
^ statement
!
statement: anObject
statement := anObject
! !
!PJWhileStatementNode methodsFor:'visiting'!
acceptVisitor: aVisitor
^ aVisitor visitWhileStatementNode: self
! !