gadget-subtree% ( frompath topath gadget -- )

Vocabulary

ui.traverse

Inputs

frompath	an object
topath	an object
gadget	an object

Outputs

None

Definition

USING: combinators kernel make sequences ;

IN: ui.traverse

: gadget-subtree% ( frompath topath gadget -- )
    {
        { [ dup not ] [ 3drop ] }
        { [ pick empty? pick empty? and ] [ 2nip , ] }
        { [ pick empty? ] [ traverse-to-path drop ] }
        { [ over empty? ] [ nip traverse-from-path ] }
        { [ pick first pick first = ] [ traverse-child ] }
        [ traverse-middle ]
    } cond ;