'Button node' debugging.

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

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'.