<callstack-display> ( model -- gadget )


Vocabulary
ui.tools.traceback

Inputs
modelan object


Outputs
gadgetan object


Definition
USING: accessors kernel prettyprint ui.gadgets.labeled
ui.gadgets.panes ui.gadgets.scrollers ui.theme ui.tools.common ;

IN: ui.tools.traceback

: <callstack-display> ( model -- gadget )
[ [ call>> callstack. ] when* ] <pane-control> t >>scrolls?
margins <scroller> white-interior "Call stack"
call-stack-color <colored-labeled-gadget> ;