scroll-children ( incremental -- )

Vocabulary

ui.gadgets.incremental

Inputs

incremental

an object

Outputs

None

Definition

USING: accessors grouping kernel math sequences threads
ui.gadgets ui.gadgets.private ;

IN: ui.gadgets.incremental

: scroll-children ( incremental -- )
    dup children>> length 200000 > [
        [ 100000 index-or-length cut* ] change-children
        dup focus>> pick member-eq? [ f >>focus ] when relayout
        yield 10 <groups> [ [ (unparent) ] each yield ] each
    ] [ drop ] if ;