<stage> ( gadget dim -- gadget )

Vocabulary

ui-demo

Inputs

gadget	an object
dim	an object

Outputs

gadget

an object

Definition

USING: accessors kernel ui.gadgets.borders ui.pens.solid
ui.theme ;

IN: ui-demo

: <stage> ( gadget dim -- gadget )
    [
        demo-stage new-border { 1 1 } >>fill t >>clipped?
        field-border-color <solid> >>boundary
    ] dip >>stage-dim ;