[REBOL] Re: Re(2): Console life a bit over-expressive? Try dir-utils
From: d4marcus:dtek:chalmers:se at: 15-Dec-2000 18:27
On Thu, 14 Dec 2000, Anton wrote:
> I want to implement a scroll bar if it gets too big. I am not sure
> how at the moment. Anyone with a pointer to a nice example of a
> list and updating slider?
I was close to suggesting "source request-file", but it seems that the
source returned when you examine this function is not complete. However,
if you have a new version of View (with the test panel), you can have a
look at the source of demo-init. For example (rebolv is View):
rebolv --do "source demo-init" > demo-init.r
Then search demo-init.r for slider. You'll find something similar to this
- I have trimmed it here to get the important parts:
l: layout [
size 640x320 origin 0 space 0
across
t1: area 624x320
s1: slider 16x320 [scroll-para t1 s1] ; ties the slider to the area
]
t1/text: read %demo-init.r
size: size-text t1
s1/redrag 320 / size/y ; to get a proportional handle
Ok, so a list is a bit different than a text, but you should be able to
work it out.
Marcus
------------------------------------
If you find that life spits on you
calm down and pretend it's raining
