I like this one a lot.
did some ugly hacking to use lists by my own.
doesn't know it can look so clean.
Great Carl(toh inventing and using it:)!
Volker
>It would probably be a lot easier to use a List rather than
>a text-list. Once you get the hang of a list, there's a lot
>more you can do with them.
>
>Here's example of a list... this one has alternating
>row colors. For data, it uses files in local dir.
>
>REBOL [
> Title: "Example List"
> Date: 14-Mar-2000
> Author: "Carl Sassenrath"
>]
>
>cnt: 0
>files: load %./
>
>out: layout [
> across
> image logo.gif
> text 233x24 bold middle no-wrap reform ["File List" now/date now/
time]
> return space 0
> txt snow black "Size" 77 center bold
> txt snow black "Time" 55 center bold
> txt snow black "File" 266 bold
> return
> lst: list 380x300 [
> origin 0 space 0x0 across
> txt 75 center para [origin: margin: 0x2]
> txt 55 center para [origin: margin: 0x2]
> txt bold 240
> txt 10
> ] supply [
> count: count + cnt
> face/color: ivory
> face/text: none
> face/font/color: black
> if even? count [face/color: ivory - 50.50.50]
> if none? file: pick files count [exit]
> face/text: do pick [
> [either dir? file ["dir"][size? file]]
> [if date: modified? file [date/time]]
> [file]
> ] index
> ]
> sld: slider lst/size * 0x1 + 16x0 [
> c: to-integer value * .5 * length? files
> if c <> cnt [cnt: c show lst]
> ] return
>]
>
>view out
>
>-Carl
>
>> -----Original Message-----
>> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of
>> P-O Yliniemi
>> Sent: Tuesday, April 17, 2001 10:48 AM
>> To: [EMAIL PROTECTED]
>> Subject: [REBOL] Re: text-list questions (probably answered before)
>>
>>
>> > > From: "P-O Yliniemi"
>> > > > Here is a collection of text-list related problems I have
gotten so
>> > > > far:
>> > > >
>> > > > 1. how do I set the slider to the 'correct' position on a
rebuild ?
>> > >
>>
>> ah.. almost there (by poking around in the text-list object).. now..
how
>> do stop the slider knob from jumping from the top of the container
to the
>> position I want it in ?
>>
>> The value I poke at is:
>> tl/sld/pane/offset
>>
>> where 'tl' is my text-list in the layout.
>>
>> I want the initial position to be set to the old position..
>>
>> [
>> REBOL []
>>
>> list-items: {some items to play around with in the list. Specific
>> problems I
>> have is all related to rebuilding the list}
>>
>> list-block: parse list-items " "
>>
>> build-layout: func [
>> {Build the test layout}
>> ][
>> l: layout [
>> tl: text-list 100x140 data list-block [
>> if not none? tl/picked [ print first tl/picked ]
>> print tl/sld/pane/offset
>> ]
>> button "Rebuild" [
>> old-picked: tl/picked ; save old selection
>> old-sn: tl/sn ; save old visible area
>> old-sld-offset: tl/sld/pane/offset
>>
>> build-layout ; rebuild
>> tl/picked: old-picked ; initial selection is what
>> was before
>> tl/sn: old-sn ; make what was visible
>> before visible again
>> view center-face l ; view the layout
>> tl/sld/pane/offset: old-sld-offset
>> show tl
>> ]
>> ]
>> ]
>>
>> build-layout
>> view center-face l
>> ]
>>
>> /PeO
>> --
>> To unsubscribe from this list, please send an email to
>> [EMAIL PROTECTED] with "unsubscribe" in the
>> subject, without the quotes.
>>
>>
>--
>To unsubscribe from this list, please send an email to
>[EMAIL PROTECTED] with "unsubscribe" in the
>subject, without the quotes.
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
