Not all outputs are stored by default.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-04-16 16:49:29 +00:00
parent ebeb8acfcb
commit 40a8a58e70
2 changed files with 7 additions and 1 deletions

View File

@ -702,6 +702,12 @@ GrafoscopioNode >> preorderTraversal [
^ nodesInPreorder.
]
{ #category : #'as yet unclassified' }
GrafoscopioNode >> processOutput [
(self headerStartsWith: '%output')
ifTrue: [ self output: (Compiler evaluate: self body) ]
]
{ #category : #movement }
GrafoscopioNode >> promote [
"Moves the current node up in the hierachy, making it a slibing of its current parent"

View File

@ -66,7 +66,7 @@ GrafoscopioNotebook >> autoSaveBodyOf: aNode [
onChangeOfPort: #text
act: [ :x | aNode body: x entity value content ];
onChangeOfPort: #activePresentation
act: [ aNode output: (Compiler evaluate: aNode body) ]
act: [ aNode output: aNode processOutput ]
]
{ #category : #accessing }