[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