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

[REBOL] Re: How to refresh a text-list

From: atruter:hih:au at: 27-Feb-2002 10:51

Thanks to all who responded. Of the two solutions that addressed the slider issue, I believe the "tell-list" solution appears to work better (please note that this is more a comment on the vagaries of text-list usage than the code snippets received!). Try the following with the first dir listing larger than the second (ie. showing what happens when the number of entries is reduced). rebol [] tell-list: func [fce value] [ append clear fce/data copy value clear fce/picked fce/sld/data: 0 fce/sn: 0 fce/line-list: none fce/sld/redrag fce/lc / max 1 length? head fce/lines show fce ] fix-slider: func [faces [object! block!]] [ foreach list to-block faces [ list/sld/redrag list/lc / max 1 length? head list/lines ] ] view layout [ a: text-list data read %.. button "Tell" [tell-list a read %.] b: text-list data read %.. button "Fix" [b/lines: read %. fix-slider b show b] ] Click on the last row of each list and then press "Tell" followed by "Fix" . . . Regards, Ashley