Class {
	#name : #PPCMNode,
	#superclass : #Object,
	#category : #'PetitMarkdown-AST'
}

{ #category : #visiting }
PPCMNode >> accept: visitor [
	^ visitor visitNode: self
]

{ #category : #enumerating }
PPCMNode >> allChildren [
	^ Array with: self
]

{ #category : #accessing }
PPCMNode >> children [
	^ #()
]

{ #category : #gt }
PPCMNode >> gtTreeViewIn: composite [
	<gtInspectorPresentationOrder: 40>

	composite tree
			title: 'Tree';
			children: [:n | n children ];
			format: [:n| n name ifNil: [ n asString ] ifNotNil: [n name] ];
			shouldExpandToLevel: 6
]

{ #category : #testing }
PPCMNode >> isBlankLine [
	^ false
]

{ #category : #testing }
PPCMNode >> isBlockLevel [
	^ false
]

{ #category : #testing }
PPCMNode >> isCommonMarkNode [
	^ true
]

{ #category : #testing }
PPCMNode >> isLine [
	^ false
]

{ #category : #testing }
PPCMNode >> isParagraph [
	^ false
]

{ #category : #replacing }
PPCMNode >> replace: child with: anotherChild [
	^ false
]

{ #category : #accessing }
PPCMNode >> text [
	"hackity hack, this should not be used except for tests..."
	^ String cr join: (self children collect: [ :e | e text ])
]