[REBOL] Re: Iterated check box anomaly (resend)
From: anton:lexicon at: 2-May-2002 1:51
Don't listen to that negative stuff.
Here seems to be a solution. Tell me if it works.
Thanks for asking, by the way. Months could have
gone by and I would never have figured it out.
Anton.
a: copy []
q: [
["1" "Setup"]
["2" "Install"]
["3" "Post-install"]
["4" "Run"]
]
chk-dat: array/initial length? q false
view layout [
below
list 550x180 [
across origin 2x2
answer: check with [my-count: none][
print ["face/my-count:" face/my-count]
change at chk-dat face/my-count not pick chk-dat face/my-count
answer/data: pick chk-dat face/my-count
probe a: either probe answer/data [
sort unique append a answer/text
][
sort difference a compose [(answer/text)]
]
show answer
]
question: info wrap 500
] supply [
if count > length? q [face/show?: false exit]
face/show?: true
if face/style = 'check [
face/my-count: count
;face/data: q/:count/:index
]
face/text: q/:count/:index
]
]
