Class {
	#name : #GrafoscopioNewCodeModel,
	#superclass : #SpPresenter,
	#instVars : [
		'body'
	],
	#category : 'Grafoscopio-New-UI'
}

{ #category : #specs }
GrafoscopioNewCodeModel class >> defaultSpec [
	^ SpBoxLayout newVertical
		add: #body;
		yourself
]

{ #category : #accessing }
GrafoscopioNewCodeModel >> body [
	^ body
]

{ #category : #accessing }
GrafoscopioNewCodeModel >> body: anObject [
	body := anObject
]

{ #category : #API }
GrafoscopioNewCodeModel >> content: aGrafoscopioNodeContent [
	body text: aGrafoscopioNodeContent
]

{ #category : #initialization }
GrafoscopioNewCodeModel >> initializeWidgets [

	body := self newCode.
]