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