<walker-gadget> ( status continuation thread -- gadget )


Vocabulary
ui.tools.walker

Inputs
statusan object
continuationan object
threadan object


Outputs
gadgetan object


Definition
USING: accessors kernel ui.gadgets ui.gadgets.toolbar
ui.gadgets.tracks ui.tools.common ui.tools.traceback ;

IN: ui.tools.walker

: <walker-gadget> ( status continuation thread -- gadget )
vertical walker-gadget new-track with-lines swap >>thread
swap >>continuation swap >>status
dup continuation>> <traceback-gadget> >>traceback
add-toolbar add-thread-status add-traceback ;