[REBOL] Re: list: multiple columns update

From: rebol:optushome:au at: 14-Feb-2002 23:26

Hi Robert,

Here is a simple multilist column example. Hope it helps.

Cheers,

Allen K

REBOL [
 Title: {Multi-column List demo}
 Author: "Allen Kamp"
]

Data: [
    [Left1 Middle1 Right1]
    [Left2 Middle2 Right2]
    [Left3 Middle3 Right3]
    [Left4 Middle4 Right4]
    [Left5 Middle5 Right5]
]

selected: row: 0
item: line: none

view layout [
    style txt txt [if row [selected: row show lst]] 100
    lst: list 300x300 [across space 0x0 txt txt txt] supply [
        row: count
        either line: pick data count [
            item: pick line index
            face/text: item
            ; color our columns
            face/color: pick reduce [red blue green] index
            ; hilight selected row
            if row = selected [face/color: gold]
        ][
            ; not a row with data set defaults
            set-font face 'color black
            face/color: snow
            face/text: none
        ]
    ]
]

1 · [2] · 3 · 4 · 5 · 6 · See whole thread