list-page ( list vec -- )

Vocabulary

ui.gadgets.lists

Inputs

list	an object
vec	an object

Outputs

None

Definition

USING: kernel math.rectangles math.vectors ui.gadgets.viewports
;

IN: ui.gadgets.lists

: list-page ( list vec -- )
    [ dup selected-rect rect-bounds 2 v/n v+ over visible-dim ]
    dip v* v+ swap select-at ;