Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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 ] ]