select-previous ( list -- )

Vocabulary

ui.gadgets.lists

Inputs

list

an object

Outputs

None

Definition

USING: accessors kernel math ;

IN: ui.gadgets.lists

: select-previous ( list -- )
    [ index>> 1 - ] keep select-index ;