[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.
a: copy 
chk-dat: array/initial length? q false
view layout [
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)]
question: info wrap 500
] supply [
if count > length? q [face/show?: false exit]
if face/style = 'check [