do-drag ( thumb -- )

Vocabulary

ui.gadgets.sliders.private

Inputs

thumb

an object

Outputs

None

Definition

USING: accessors combinators math math.vectors models.range
ui.gestures ;

IN: ui.gadgets.sliders.private

: do-drag ( thumb -- )
    find-slider {
        [ orientation>> drag-loc vdot ]
        [ screen>slider ]
        [ saved>> + ]
        [ model>> set-range-value ]
    } cleave ;