begin-drag ( thumb -- )

Vocabulary

ui.gadgets.sliders.private

Inputs

thumb

an object

Outputs

None

Definition

USING: accessors kernel ui.gadgets.sliders ;

IN: ui.gadgets.sliders.private

: begin-drag ( thumb -- )
    find-slider dup slider-value >>saved drop ;