Hello Tim,
Thanks for drawing my attention to those two new functions. :)
I found scroll-drag to be pretty easy to figure out:
view layout [
scr: scroller
btn "down" [scroll-drag/page scr]
btn "up" [scroll-drag/back/page scr]
]
Scroll-face, on the other hand, looks like it will be a handy
function, when the access functions for each of the default
VID styles are implemented.
We might expect the AREA style to have such an access function
defined, but as we can see, it does not:
>> probe svv/vid-styles/area/access
make object! [
set-face*: func [face value][
if face/para [face/para/scroll: 0x0]
face/text: form value
face/line-list: none
]
get-face*: func [...
...
(did not see "scroll-face*" in there.)
Mmm... Let's check every default VID style to see if there are
any examples at all:
str: "" foreach [style obj] svv/vid-styles [append str remold [style
obj/access]]
find str "scroll-face*"
;== none
None. Bugger. Hasn't been done yet.
Anton.
> Hi List,
>
> Could someone give me a simple example of the two new functions:
>
> *scroll-drag
> *and*
> **scroll-face*
> *
> *What I understand is that these functions should make it a lot easer to
> use scrolling in view 1.3, but how?
>
> Thanks, Tim
--
To unsubscribe from the list, just send an email to
lists at rebol.com with unsubscribe as the subject.
