do-pane-stream ( pane-stream quot -- )

Vocabulary

ui.gadgets.panes.private

Inputs

pane-stream	an object
quot	an object

Outputs

None

Definition

USING: accessors arrays combinators kernel models.range
sequences ui.gadgets ui.gadgets.scrollers ;

IN: ui.gadgets.panes.private

:: do-pane-stream ( pane-stream quot -- )
    pane-stream pane>> :> pane pane find-scroller :> scroller
    scroller
    [ model>> dependencies>> second range-at-bottom? ] [ f ] if*
    :> bottom? pane quot call pane scrolls?>> bottom? and
    scroller and [
        scroller {
            [
                [ model>> dependencies>> first range-value ]
                [ viewport>> gadget-child pref-dim second ] bi
                2array
            ]
            [ set-scroll-position ]
        } cleave
    ] when ; inline