update-selection ( table -- )

Vocabulary

ui.gadgets.tables.private

Inputs

table

an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel models ;

IN: ui.gadgets.tables.private

: update-selection ( table -- )
    [
        {
            [ [ selection>> value>> ] keep find-row-index ]
            [ initial-selection-index ]
        } 1||
    ] keep over
    [ select-table-row ] [
        [ selection-index>> set-model ]
        [ selection>> set-model ] 2bi
    ] if ;