prev/next-row ( table n -- )

Vocabulary

ui.gadgets.tables.private

Inputs

table	an object
n	an object

Outputs

None

Definition

USING: accessors kernel math ui.gadgets.tables ;

IN: ui.gadgets.tables.private

: prev/next-row ( table n -- )
    [ dup selection-index>> value>> ] dip [ + ] curry [ 0 ] if*
    select-row ;