<stack-display> ( model quot title color -- gadget )

Vocabulary

ui.tools.traceback

Inputs

model	an object
quot	an object
title	an object
color	an object

Outputs

gadget

an object

Definition

USING: kernel models.arrow ui.gadgets.labeled
ui.gadgets.scrollers ui.tools.common ;

IN: ui.tools.traceback

: <stack-display> ( model quot title color -- gadget )
    [
        [ [ dup ] ] dip [ when ] curry compose <arrow>
        <stack-table> margins <scroller> white-interior
    ] 2dip <colored-labeled-gadget> ;