Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

'Button node' debugging.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-08-15 15:01:31 +00:00
parent 2616969131
commit e4f7533ce3
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
repository/Grafoscopio/GrafoscopioButtonModel.class.st
View File

@ -13,6 +13,11 @@ GrafoscopioButtonModel class >> defaultSpec [
^ SpecLayout composed add: #button ^ SpecLayout composed add: #button
] ]
{ #category : #accessing }
GrafoscopioButtonModel >> body [
^ self button
]
{ #category : #accessing } { #category : #accessing }
GrafoscopioButtonModel >> button [ GrafoscopioButtonModel >> button [
^ button ^ button

10
repository/Grafoscopio/GrafoscopioNode.class.st
View File

@ -163,19 +163,19 @@ GrafoscopioNode >> becomeDefaultTestTree [
| node1 node2 node3 node4 | | node1 node2 node3 node4 |
self level: 0. self level: 0.
self header: 'Arbol principal'. self header: 'Arbol principal'.
node1 := GrafoscopioNode new node1 := self class new
header: 'Markup'; header: 'Markup';
body: 'I am just a node with markup'; body: 'I am just a node with markup';
level: 1. level: 1.
node2 := GrafoscopioNode new node2 := self class new
header: 'Code'; header: 'Code';
body: 'PharoTutorial openPharoZenWorkspace'; body: 'ProfStef openPharoZenWorkspace';
tagAs: 'código'. tagAs: 'código'.
node3 := GrafoscopioNode new node3 := self class new
header: 'Child'; header: 'Child';
body: 'Just testing'. body: 'Just testing'.
node1 addNode: node3. node1 addNode: node3.
node4 := GrafoscopioNode new node4 := self class new
header: 'Button'; header: 'Button';
body: 'Click me!'->[42 inspect]; body: 'Click me!'->[42 inspect];
tagAs: 'johan'. tagAs: 'johan'.