elevator-click ( elevator -- )

Vocabulary

ui.gadgets.sliders.private

Inputs

elevator

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: ui.gadgets.sliders.private

: elevator-click ( elevator -- )
    dup compute-direction >>direction elevator-hold ;