[REBOL] Re: Menu in REBOL-View
From: cyphre::seznam::cz at: 26-Oct-2004 8:16
Hi Mike,
I'm not sure if this is what you need(watch out line breaks!):
-------------------------<code begin>-----------------------------------
REBOL [
title: "text list style - example with checkboxes"
author: [cyphre--seznam--cz]
]
do %../styles/my-list.r ; load the my-list style
demo-data: copy []
repeat n 50 [
num: form n
while [(length? num) < 2][insert num "0"]
insert/only tail demo-data compose/deep [
[data (false)] ;<-store the current state of checkbox here(can be changed
by user at runtime)
(join "line " num);some test text
]
]
view layout [
origin 0
lst: my-list -1x218;autosize width
columns [ ;'layout' of the columns
check 24x24 [face/user-data/2: face/data];updates state of cell with
checkbox
txt 200x24 center
]
data demo-data ;data for the list
rowbar ["X" "text"] ;rowbar labels for each column
line-colors reduce [ivory snow]; color pattern for lines in list
]
-------------------------<code end>-----------------------------------
regards,
Cyphre
