[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
tell-list: func [fce value] [
append clear fce/data copy value
fce/sld/redrag fce/lc / max 1 length? head fce/lines
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" . . .