next-cursor ( gadget incremental -- cursor )

Vocabulary

ui.gadgets.incremental

Inputs

gadget	an object
incremental	an object

Outputs

cursor

an object

Definition

USING: accessors kernel math.vectors ;

IN: ui.gadgets.incremental

: next-cursor ( gadget incremental -- cursor )
    [ [ dim>> ] [ cursor>> ] bi* [ vmax ] [ v+ ] 2bi ] keep
    orientation>> set-axis ;