scroll>selected ( list -- )

Vocabulary

ui.gadgets.lists

Inputs

list

an object

Outputs

None

Definition

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

IN: ui.gadgets.lists

: scroll>selected ( list -- )
    [ selected-rect rect-bounds { 0 1 } v* <rect> ] keep
    scroll>rect ;