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

[REBOL] Re: View a list of Data including checkbox

From: antonr:iinet:au at: 2-Apr-2003 0:24

Cool Romano! And here it is a version with a scroll bar: check-data: loop 7 [append [] random true] ; random true/false initial data my-offset: 0 view layout [ across my-list: list [ origin 2x2 check [ poke check-data face/user-data value print mold check-data ] ] supply [ face/show?: if count <= (subtract length? check-data my-offset) [ face/data: pick check-data (count + my-offset) face/user-data: (count + my-offset) true ] ] scroller 16x100 [ my-offset: to-integer face/data * (subtract length? check-data 1) show my-list ] ] Anton Rolls.