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 math models.range
sequences 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-value ]
            [ range-page-value + ]
            [ range-max-value >= ]
        } cleave
    ] [ f ] if* :> bottom? pane quot call
    pane scrolls?>> bottom? and scroller and [
        scroller {
            [
                model>> dependencies>> first2
                [ range-value ] [ range-max-value ] bi* 2array
            ]
            [ set-scroll-position ]
        } cleave
    ] when ; inline