select-index ( n list -- )

Vocabulary

ui.gadgets.lists

Inputs

n	an object
list	an object

Outputs

None

Definition

USING: accessors kernel math sequences ui.gadgets ;

IN: ui.gadgets.lists

: select-index ( n list -- )
    dup list-empty?
    [ 2drop ] [
        [ control-value length rem ] [ index<< ] [ ] tri
        [ relayout-1 ] [ scroll>selected ] bi
    ] if ;