From f2319ec3e72d12ec3f4b61997dac6c289a8300ad Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 28 Jul 2016 15:09:26 +0000
Subject: [PATCH] Debugging persistance.

---
 repository/Grafoscopio/GrafoscopioNotebook.class.st | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioNotebook.class.st b/repository/Grafoscopio/GrafoscopioNotebook.class.st
index 7834c88..2d3ed42 100644
--- a/repository/Grafoscopio/GrafoscopioNotebook.class.st
+++ b/repository/Grafoscopio/GrafoscopioNotebook.class.st
@@ -74,8 +74,11 @@ GrafoscopioNotebook >> changeBody: aNode [
 	body := self instantiate: aNode specModelClass new.
 	body content: aNode content.
 	body body class = TextModel 
-		ifTrue: [
-			body body whenTextChanged: [ :arg | aNode body: arg ]].
+		ifTrue: [body body whenTextChanged: [ :arg | aNode body: arg ]].
+	body body class = GlamourPresentationModel 
+		ifTrue: [ 
+			"Transcript show:" "body body glmPres inspect"  ].
+	"Transcript show: body body class; cr."
 	header text: aNode header.
 	body needRebuild: true.		
 	self buildWithSpecLayout: self class defaultSpec.