traverse-middle ( frompath topath gadget -- )

Vocabulary

ui.traverse

Inputs

frompath	an object
topath	an object
gadget	an object

Outputs

None

Definition

USING: accessors make math sequences ;

IN: ui.traverse

:: traverse-middle ( frompath topath gadget -- )
    gadget [
        frompath gadget traverse-pre frompath first 1 +
        topath first gadget children>> <slice> %
        topath gadget traverse-post
    ] make-node , ;