Class {
	#name : 'PPCMLink',
	#superclass : 'PPCMNode',
	#instVars : [
		'label',
		'destination',
		'title'
	],
	#category : 'PetitMarkdown-AST'
}

{ #category : 'visiting' }
PPCMLink >> accept: visitor [
	^ visitor visitLink: self
]

{ #category : 'accessing' }
PPCMLink >> destination [
	^ destination
]

{ #category : 'accessing' }
PPCMLink >> destination: anObject [
	destination := anObject
]

{ #category : 'accessing' }
PPCMLink >> label [
	^ label
]

{ #category : 'accessing' }
PPCMLink >> label: anObject [
	label := anObject
]

{ #category : 'accessing' }
PPCMLink >> title [
	^ title
]

{ #category : 'accessing' }
PPCMLink >> title: anObject [
	title := anObject
]