[REBOL] Re: View a list of Data including checkbox
From: antonr:iinet:au at: 2-Apr-2003 0:24
Cool Romano!
And here it is a version with a scroll bar:
check-data: loop 7 [append [] random true] ; random true/false initial data
my-offset: 0
view layout [
across
my-list: list [
origin 2x2
check [
poke check-data face/user-data value
print mold check-data
]
] supply [
face/show?: if count <= (subtract length? check-data my-offset) [
face/data: pick check-data (count + my-offset)
face/user-data: (count + my-offset)
true
]
]
scroller 16x100 [
my-offset: to-integer face/data * (subtract length? check-data 1)
show my-list
]
]
Anton Rolls.