From b289c02708136102e3c981b5ac3191a6d053a79e Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Wed, 8 Feb 2017 20:52:11 +0000
Subject: [PATCH] Fixing the bug about code nodes being replaced by their
 output when such output was text. Thanks Doru :-).

---
 repository/Grafoscopio/GrafoscopioNode.class.st     |  2 +-
 repository/Grafoscopio/GrafoscopioNotebook.class.st | 10 ++--------
 2 files changed, 3 insertions(+), 9 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st
index 51e80f8..f8cd70d 100644
--- a/repository/Grafoscopio/GrafoscopioNode.class.st
+++ b/repository/Grafoscopio/GrafoscopioNode.class.st
@@ -493,7 +493,7 @@ GrafoscopioNode >> level: anInteger [
 { #category : #accessing }
 GrafoscopioNode >> links [
 	"I model local or remote links that are associated to a particular node."
-	^ links ifNil: [ ^ links = OrderedCollection new ]
+	^ links ifNil: [ ^ links := OrderedCollection new ]
 ]
 
 { #category : #accessing }
diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index 32c712a..7edcc0c 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -62,14 +62,8 @@ GrafoscopioNotebook >> autoSaveBodyOf: aNode [
 		ifTrue: [ | playground |
 			playground := body body glmPres.
 			playground
-				when: GLMContextChanged
-				do: [ :ann | 
-					ann property = #text
-						ifTrue: [ | playgroundText |
-							playgroundText := (playground pane ports at: 2) value.
-							aNode body: playgroundText ] 
-				] 
-		]
+				onChangeOfPort: #text
+				act: [ :x | aNode body: x entity value content ]]
 ]
 
 { #category : #accessing }