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: philb:upnaway at: 27-Feb-2002 16:43

Hi Ashley, Not too sure about tell-list fro all occasions. Suppose I had a text list with say 3000 entries (I have a text-list as part of my emailer reader has at least one folder with this many enteries). If I delete a single entry then tell-list will clear the whole list and copy (3000 -1) items from value back into fce/data. fix-slider assumes that the face data has been amended. Of course you could supply a refinment to decide whether to clear & replace the data, tell-list/replace and get the best of both worlds. Cheers Phil === Original Message === 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