traverse-from-path ( frompath gadget -- )

Vocabulary

ui.traverse

Inputs

frompath	an object
gadget	an object

Outputs

None

Definition

USING: accessors kernel make math sequences ;

IN: ui.traverse

:: traverse-from-path ( frompath gadget -- )
    gadget [
        frompath empty? [
            [
                frompath gadget traverse-step traverse-from-path
                gadget children>> frompath first 1 + tail-slice
                %
            ] make-node
        ] unless ,
    ] when* ;