steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.traverse: cleanup tests a little.

factor-shell
John Benediktsson 2017-10-25 19:00:47 -07:00
parent e06b1d7ded
commit da0ca21fc8
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/ui/traverse/traverse-tests.factor
View File

@ -1,19 +1,17 @@
USING: accessors ui.gadgets ui.gadgets.labels namespaces make USING: accessors arrays compiler.units definitions kernel make
sequences kernel math arrays tools.test io ui.gadgets.panes sequences tools.test ui.traverse ;
ui.traverse definitions compiler.units ;
IN: ui.traverse.tests IN: ui.traverse.tests
M: array children>> ; M: array children>> ;
GENERIC: (flatten-tree) ( node -- ) GENERIC: flatten-tree% ( node -- )
M: node (flatten-tree) M: node flatten-tree% children>> [ flatten-tree% ] each ;
children>> [ (flatten-tree) ] each ;
M: object (flatten-tree) , ; M: object flatten-tree% , ;
: flatten-tree ( seq -- newseq ) : flatten-tree ( seq -- newseq )
[ [ (flatten-tree) ] each ] { } make ; [ [ flatten-tree% ] each ] { } make ;
: gadgets-in-range ( frompath topath gadget -- seq ) : gadgets-in-range ( frompath topath gadget -- seq )
gadget-subtree flatten-tree ; gadget-subtree flatten-tree ;