next-item ( menu dir -- )

Vocabulary

ui.gadgets.menus.private

Inputs

menu	an object
dir	an object

Outputs

None

Definition

USING: accessors kernel math sequences ui.gadgets ;

IN: ui.gadgets.menus.private

:: next-item ( menu dir -- )
    menu [ items>> ] [ control-value ] bi :> ( items curr ) curr 
    [
        items length :> max curr items index :> indx indx dir +
        max rem items nth
    ] [ items first ] if menu set-control-value ;