Class {
	#name : 'PPCMHtml',
	#superclass : 'PPCMNode',
	#instVars : [
		'text'
	],
	#category : 'PetitMarkdown-AST'
}

{ #category : 'visiting' }
PPCMHtml >> accept: visitor [
	^ visitor visitHtml: self
]

{ #category : 'accessing' }
PPCMHtml >> text [
	^ text
]

{ #category : 'accessing' }
PPCMHtml >> text: anObject [
	text := anObject
]