$divider ( -- )

Vocabulary

slides

Inputs

None

Outputs

None

Definition

USING: accessors colors help.markup ui.gadgets ui.gadgets.panes
ui.pens.gradient ;

IN: slides

: $divider ( -- )
    [
        <gadget> {
            T{ rgba
                { red 0.25 }
                { green 0.25 }
                { blue 0.25 }
                { alpha 1.0 }
            }
            T{ rgba
                { red 1.0 }
                { green 1.0 }
                { blue 1.0 }
                { alpha 0.0 }
            }
        } <gradient> >>interior { 804 10 } >>dim
        { 1 0 } >>orientation gadget.
    ] ($block) ;