elevator-hold ( elevator -- )

Vocabulary

ui.gadgets.sliders.private

Inputs

elevator

an object

Outputs

None

Definition

USING: accessors kernel ui.gadgets.sliders ;

IN: ui.gadgets.sliders.private

: elevator-hold ( elevator -- )
    [ direction>> ] [ find-slider ] bi [ slide-by-page ] curry
    when* ;