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

[REBOL] Re: Layout too big for it's window

From: james:mustard at: 7-Dec-2001 12:27

Hi Andrew, Here's a modified example of one of Jeff Kreis tables to include check box functionality: context [ ;- The database tdata: [ ["Adamson" "Sarah" 0] ["Adamson" "John" 1] ["Battey" "Nora" 0] ["Roberts" "Julia" 1] ["Spencer" "Frank" 1] ] ;- For the scroll bar cnt: 0 view layout [ across space 0 tbl: list 220x400 [across space 0 text 100 text 100 check [tmp: (face/parent-face/offset/y / face/parent-face/size/y) + 1 if tmp <= length? tdata [tdata/:tmp/3: either tdata/:tmp/3 = 1[0][1]]]] supply [ count: count + cnt face/color: ivory face/text: none if even? count [face/color: ivory - 50.50.50] face/data: false if none? v: pick tdata count [exit] switch/default face/style [ check [ face/data: to-logic (pick v index) ] ][face/text: pick v index] ] sld: slider 16x400 [ c: max 0 to-integer (length? tdata) * value if c <> cnt [cnt: c show tbl] ] return ] ] Regards, James.