39 lines
705 B
Smalltalk
39 lines
705 B
Smalltalk
Class {
|
|
#name : #GrafoscopioCodeModel,
|
|
#superclass : #ComposableModel,
|
|
#instVars : [
|
|
'body'
|
|
],
|
|
#category : #'Grafoscopio-UI'
|
|
}
|
|
|
|
{ #category : #specs }
|
|
GrafoscopioCodeModel class >> defaultSpec [
|
|
|
|
^ SpecLayout composed add: #body
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
GrafoscopioCodeModel >> body [
|
|
^ body
|
|
]
|
|
|
|
{ #category : #accessing }
|
|
GrafoscopioCodeModel >> body: anObject [
|
|
body := anObject
|
|
]
|
|
|
|
{ #category : #API }
|
|
GrafoscopioCodeModel >> content: aGrafoscopioNodeContent [
|
|
|
|
body
|
|
presentationClass: GTPlayground
|
|
startOn: (GTPlayPage new saveContent: aGrafoscopioNodeContent)
|
|
]
|
|
|
|
{ #category : #initialization }
|
|
GrafoscopioCodeModel >> initializeWidgets [
|
|
|
|
body := GlamourPresentationModel new.
|
|
]
|