<ui-render-test> ( -- gadget )

Vocabulary

ui.render.test

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors arrays colors kernel ui.gadgets
ui.gadgets.borders ui.gadgets.grid-lines ui.gadgets.grids
ui.gadgets.packs ui.pens.solid ;

IN: ui.render.test

: <ui-render-test> ( -- gadget )
    <shelf> take-screenshot new >>boundary
    <gadget> COLOR: black <solid> >>interior { 98 98 } >>dim
    { 1 1 } <border> add-gadget
    <gadget> COLOR: gray <solid> >>boundary { 94 94 } >>dim
    { 3 3 } <border> COLOR: red <solid> >>boundary add-gadget
    <line-gadget> <line-gadget> <line-gadget> 3array
    <line-gadget> <line-gadget> <line-gadget> 3array
    <line-gadget> <line-gadget> <line-gadget> 3array 3array
    <grid> { 5 5 } >>gap COLOR: blue <grid-lines> >>boundary
    add-gadget ;