Handbook
Glossary
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