build-thumb ( thumb -- thumb )

Vocabulary

ui.gadgets.sliders.private

Inputs

thumb

an object

Outputs

thumb

an object

Definition

USING: accessors kernel sequences ui.gadgets ui.gadgets.borders
ui.gadgets.tracks ui.pens.rounded ui.pens.solid ui.theme ;

IN: ui.gadgets.sliders.private

: build-thumb ( thumb -- thumb )
    dup orientation>> <reversed> <track> dup orientation>>
    <reversed> <track> { 1 1 } >>gap 3 [
        <gadget> { 1 1 } >>dim
        content-background <solid> >>interior
    ] replicate
    [ f track-add <gadget> { 1 1 } >>dim f track-add ] each
    { 2 2 } <filled-border> 1/2 track-add 0 >>fill 1/2 >>align
    line-color min-thumb-dim <rounded> >>interior 1/2 track-add
    { 1 1 } <filled-border> ;