" This kind of a leafNodes holds plain text. " Class { #name : #GrafoscopioTextNode, #superclass : #GrafoscopioLeafNode, #instVars : [ 'text' ], #category : #'Grafoscopio-Model' } { #category : #accessing } GrafoscopioTextNode class >> icon [ ^ self iconNamed: #workspace ] { #category : #'as yet unclassified' } GrafoscopioTextNode class >> nameForSelection [ ^ 'New text node' ] { #category : #'as yet unclassified' } GrafoscopioTextNode class >> showInMenu [ ^ true ] { #category : #accessing } GrafoscopioTextNode >> acceptVisitor: aGrafoscopioVisitor [ aGrafoscopioVisitor visitTextNode: self. ] { #category : #'as yet unclassified' } GrafoscopioTextNode >> text [ ^ text ] { #category : #accessing } GrafoscopioTextNode >> text: aString [ text := aString ]