<pens-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors colors ui.gadgets ui.pens.gradient
ui.pens.polygon ui.pens.rounded ui.pens.solid ;

IN: ui-demo

: <pens-section> ( -- gadget )
    <section>
    "A pen paints a gadget's interior or its boundary." <prose>
    add-gadget <shelf-of> COLOR: DodgerBlue <solid>
    { 90 60 } <box> add-gadget
    { COLOR: DodgerBlue COLOR: MediumSeaGreen } <gradient>
    { 90 60 } <box> add-gadget COLOR: chocolate1 12 <rounded>
    { 90 60 } <box> add-gadget
    COLOR: MediumPurple 6 60 polygon-circle <polygon>
    { 90 60 } <box> add-gadget add-gadget
    "solid, gradient, rounded, polygon" <note> add-gadget
    "The same pens draw boundaries:" <heading> add-gadget
    <shelf-of> <gadget> { 90 60 } >>dim
    COLOR: firebrick <solid> >>boundary add-gadget <gadget>
    { 90 60 } >>dim COLOR: firebrick 12 <rounded> >>boundary
    add-gadget add-gadget <page> ;