[REBOL] Re: Iterated check box anomaly

[Romano Paolo Tenca]

Hi, Geza

you must re-initialize the check data field:

a: copy []
q: [
        ["1" "Setup"]
        ["2" "Install"]
        ["3" "Post-install"]
        ["4" "Run"]
]
view layout [
        below
        list 550x180 [
                across origin 2x2
                answer: check [
                        a: either 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
                face/text: q/:count/:index
                if index = 1 [face/data: find a face/text]
        ]
]

---
Ciao
Romano


-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.