From 40a8a58e70412d88af2f2225051cd9abd687e799 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 16 Apr 2017 16:49:29 +0000
Subject: [PATCH] Not all outputs are stored by default.

---
 repository/Grafoscopio/GrafoscopioNode.class.st     | 6 ++++++
 repository/Grafoscopio/GrafoscopioNotebook.class.st | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st
index 84b4696..1560e8e 100644
--- a/repository/Grafoscopio/GrafoscopioNode.class.st
+++ b/repository/Grafoscopio/GrafoscopioNode.class.st
@@ -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"
diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index c7dfbf1..b0a0991 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -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 }