<elevator> ( vector -- elevator )


Vocabulary
ui.gadgets.sliders.private

Inputs
vectoran object


Outputs
elevatoran object


Definition
USING: accessors kernel ;

IN: ui.gadgets.sliders.private

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