ui.traverse: cleanup tests a little.
parent
e06b1d7ded
commit
da0ca21fc8
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue