<thumb> ( orientation -- thumb )

Vocabulary

ui.gadgets.sliders.private

Inputs

orientation

an object

Outputs

thumb

an object

Definition

USING: accessors ui.gadgets.tracks ;

IN: ui.gadgets.sliders.private

: <thumb> ( orientation -- thumb )
    thumb new-track 1 >>fill 1/2 >>align build-thumb t >>root? ;