From e4f7533ce3ac43fdbeb3797ffba3a53594517216 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Mon, 15 Aug 2016 15:01:31 +0000
Subject: [PATCH] 'Button node' debugging.

---
 repository/Grafoscopio/GrafoscopioButtonModel.class.st |  5 +++++
 repository/Grafoscopio/GrafoscopioNode.class.st        | 10 +++++-----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioButtonModel.class.st b/repository/Grafoscopio/GrafoscopioButtonModel.class.st
index deb199c..8db3580 100644
--- a/repository/Grafoscopio/GrafoscopioButtonModel.class.st
+++ b/repository/Grafoscopio/GrafoscopioButtonModel.class.st
@@ -13,6 +13,11 @@ GrafoscopioButtonModel class >> defaultSpec [
 	^ SpecLayout composed add: #button
 ]
 
+{ #category : #accessing }
+GrafoscopioButtonModel >> body [
+	^ self button
+]
+
 { #category : #accessing }
 GrafoscopioButtonModel >> button [
 	^ button
diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st
index 962025d..820b229 100644
--- a/repository/Grafoscopio/GrafoscopioNode.class.st
+++ b/repository/Grafoscopio/GrafoscopioNode.class.st
@@ -163,19 +163,19 @@ GrafoscopioNode >> becomeDefaultTestTree [
 	| node1 node2 node3 node4 |
 	self level: 0.
 	self header: 'Arbol principal'.	
-	node1 := GrafoscopioNode new
+	node1 := self class new
 		header: 'Markup';
 		body:  'I am just a node with markup';
 		level: 1.
-	node2 := GrafoscopioNode new
+	node2 := self class new
 		header: 'Code';
-		body:  'PharoTutorial openPharoZenWorkspace';
+		body:  'ProfStef openPharoZenWorkspace';
 		tagAs: 'código'.
-	node3 := GrafoscopioNode new
+	node3 := self class new
 		header: 'Child';
 		body:  'Just testing'.
 	node1 addNode: node3.
-	node4 := GrafoscopioNode new
+	node4 := self class new
 		header: 'Button';
 		body:  'Click me!'->[42 inspect];
 		tagAs: 'johan'.