Class {
	#name : #GrafoscopioFormat,
	#superclass : #Object,
	#classInstVars : [
		'instance'
	],
	#category : #'Grafoscopio-Pillar-TextFormat'
}

{ #category : #accessing }
GrafoscopioFormat class >> instance [
	^ instance ifNil: [  instance := self new  ]
]

{ #category : #'target resize' }
GrafoscopioFormat >> beInstalledIn: aNode [
	self subclassResponsibility .
	
]

{ #category : #'target resize' }
GrafoscopioFormat >> installTextNodeAtLeftWithValue: aString in: aNode [
	| newTextChild |
	newTextChild := self newTextChildFor: aString in: aNode.
	aNode children: {newTextChild} , aNode children
]

{ #category : #'target resize' }
GrafoscopioFormat >> installTextNodeAtRightWithValue: aString in: aNode [
	aNode
		children:
			aNode children, {(GrafoscopioFormatTextNode new
				text: aString;
				yourself)} 
]

{ #category : #'target resize' }
GrafoscopioFormat >> newTextChildFor: aString in: aNode [
	^ GrafoscopioFormatTextNode new
		text: aString;
		parent: aNode;
		yourself
]