[REBOL] Re: Iterated check box anomaly

From: rotenca:telvia:it at: 12-Apr-2002 22:11

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

1 · [2] · 3 · 4 · 5 ... 10 · 11 · 12 · 13 · 14 · See whole thread