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
]
{ #category : #accessing }
GrafoscopioButtonModel >> body [
^ self button
]
{ #category : #accessing }
GrafoscopioButtonModel >> button [
^ button

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

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