Children!

This commit is contained in:
SantiagoBragagnolo 2020-02-23 00:42:36 +00:00
parent e65739d70e
commit 96a10e89fa
1 changed files with 4 additions and 3 deletions

View File

@ -552,7 +552,9 @@ GrafoscopioNewNotebook >> initializeWidgets [
body autoAccept: true. body autoAccept: true.
links := self newTextInput. links := self newTextInput.
tree := self newTreeTable. tree := self newTreeTable.
tree addColumn: (SpStringTableColumn evaluated: #title). tree
addColumn: (SpStringTableColumn evaluated: #title);
children: [ : node | node children ].
" tree " tree
childrenBlock: [ :node | node children value ]; childrenBlock: [ :node | node children value ];
displayBlock: [ :node | node title value ]." displayBlock: [ :node | node title value ]."
@ -560,8 +562,7 @@ GrafoscopioNewNotebook >> initializeWidgets [
add: tree; add: tree;
add: header; add: header;
add: body; add: body;
add: links. add: links
] ]
{ #category : #persistence } { #category : #persistence }