17 lines
400 B
Smalltalk
17 lines
400 B
Smalltalk
Class {
|
|
#name : #GrafoscopioFormatTextNode,
|
|
#superclass : #PRText,
|
|
#category : #'Grafoscopio-Pillar-TextFormat'
|
|
}
|
|
|
|
{ #category : #visiting }
|
|
GrafoscopioFormatTextNode >> accept: aVisitor [
|
|
aVisitor visitFormatText: self
|
|
]
|
|
|
|
{ #category : #visiting }
|
|
GrafoscopioFormatTextNode >> printOn: aStream [
|
|
super printOn: aStream.
|
|
aStream nextPutAll: ' format text: '; print: self text
|
|
]
|