<stack-display> ( model -- gadget )

Vocabulary

gml.ui

Inputs

model

an object

Outputs

gadget

an object

Definition

USING: colors ui.gadgets.labeled ui.gadgets.scrollers ;

IN: gml.ui

: <stack-display> ( model -- gadget )
    <stack-table> <scroller> "Operand stack" COLOR: dark-gray
    <colored-labeled-gadget> ;