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

[REBOL] Re: Menu in REBOL-View

From: cyphre::seznam::cz at: 26-Oct-2004 8:16

Hi Mike, I'm not sure if this is what you need(watch out line breaks!): -------------------------<code begin>----------------------------------- REBOL [ title: "text list style - example with checkboxes" author: [cyphre--seznam--cz] ] do %../styles/my-list.r ; load the my-list style demo-data: copy [] repeat n 50 [ num: form n while [(length? num) < 2][insert num "0"] insert/only tail demo-data compose/deep [ [data (false)] ;<-store the current state of checkbox here(can be changed by user at runtime) (join "line " num);some test text ] ] view layout [ origin 0 lst: my-list -1x218;autosize width columns [ ;'layout' of the columns check 24x24 [face/user-data/2: face/data];updates state of cell with checkbox txt 200x24 center ] data demo-data ;data for the list rowbar ["X" "text"] ;rowbar labels for each column line-colors reduce [ivory snow]; color pattern for lines in list ] -------------------------<code end>----------------------------------- regards, Cyphre