Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing https://mutabit.com/repos.fossil/grafoscopio/tktview?name=8835f9017a , finally!

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2019-05-06 20:14:29 +00:00
parent 67b27d20b3
commit 70a6ff3961
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
repository/Grafoscopio/GrafoscopioNotebook.class.st
View File

@ -75,16 +75,14 @@ GrafoscopioNotebook >> addNode [
{ #category : #operation } { #category : #operation }
GrafoscopioNotebook >> autoSaveBodyOf: aNode [ GrafoscopioNotebook >> autoSaveBodyOf: aNode [
| playground | | playground |
body body class = TextModel self body class = TextModel
ifTrue: [ body body whenTextChanged: [ :arg | aNode body: arg ] ]. ifTrue: [ body body whenTextChanged: [ :arg | aNode body: arg ] ].
body body class = GlamourPresentationModel body body class = GlamourPresentationModel
ifFalse: [ ^ self ]. ifFalse: [ ^ self ].
playground := body body glmPres. playground := body body glmPres.
playground playground
onChangeOfPort: #text onChangeOfPort: #text
act: [ :x | aNode body: (x pane port: #text) value ]"; act: [ :x | aNode body: (x pane port: #entity) value content ]
onChangeOfPort: #activePresentation
act: [ aNode output: aNode processOutput ]"
] ]
{ #category : #accessing } { #category : #accessing }