<elevator> ( vector -- elevator )

Vocabulary

ui.gadgets.sliders.private

Inputs

vector

an object

Outputs

elevator

an object

Definition

USING: accessors kernel ;

IN: ui.gadgets.sliders.private

: <elevator> ( vector -- elevator )
    elevator new swap >>orientation ;