<borders-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors arrays colors kernel models models.range
sequences ui.gadgets ui.gadgets.borders ;

IN: ui-demo

:: <borders-section> ( -- gadget )
    400 280 560 <demo-range> :> width 12 0 40 <demo-range>
    :> gap 1/2 <model> :> align f <model> :> fill <section>
    "Adjust padding, alignment and fill inside a fixed-height prev..."
    <prose> add-gadget width gap align fill <layout-controls>
    add-gadget
    width range-model gap range-model align fill 4array [
        first4 :> ( w g a f? ) COLOR: DodgerBlue
        { 70 30 } <color-box> g dup 2array <border> a dup 2array
        >>align f? { 1 1 } { 0 0 } ? >>fill w 160 2array <stage>
    ] <demo-preview> add-gadget <page> ;