build-thumb ( thumb -- thumb )

Vocabulary

ui.gadgets.sliders.private

Inputs

thumb

an object

Outputs

thumb

an object

Definition

USING: accessors assocs combinators kernel ui.gadgets
ui.gadgets.icons ui.gadgets.tracks ui.theme.images ;

IN: ui.gadgets.sliders.private

: build-thumb ( thumb -- thumb )
    dup orientation>> {
        { horizontal [ horizontal-thumb-tiles ] }
        { vertical [ vertical-thumb-tiles ] }
    } case [ [ theme-image <icon> ] dip track-add ] assoc-each ;