traverse-to-path ( topath gadget -- )

Vocabulary

ui.traverse

Inputs

topath	an object
gadget	an object

Outputs

None

Definition

USING: accessors kernel make sequences ;

IN: ui.traverse

:: traverse-to-path ( topath gadget -- )
    gadget [
        topath empty? [
            [
                gadget children>> topath first head-slice %
                topath gadget traverse-step traverse-to-path
            ] make-node
        ] unless ,
    ] when* ;