<framed> ( gadget -- gadget )

Vocabulary

ui-demo

Inputs

gadget

an object

Outputs

gadget

an object

Definition

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

IN: ui-demo

: <framed> ( gadget -- gadget )
    { 6 6 } <filled-border>
    content-background <solid> >>interior
    field-border-color <solid> >>boundary ;