[REBOL] Re: Text-List more help please
From: gjones05:mail:orion at: 25-May-2001 16:59
From: "Ammon Cooke"
> I need to be able to remove the
> selected item(line) from the list.
This example demonstrates one technique. Note that the item is only
removed if only one is selected in this version.
fix-slider: func [faces [object! block!]] [
foreach list to-block faces [
list/sld/redrag list/lc / max 1 length? head list/lines
]
]
view layout [
txt "Select an item to delete, then click button"
tl1: text-list 150x50 data ["apples" "oranges" "bananas" "pears"
kiwi
]
button "Delete" [
remove find tl1/data tl1/picked
tl1/data: head tl1/data
fix-slider tl1
show tl1
]
]
> Sorry for all these lame questions, I am
> new here & the REBlist seems to be the
> only way to find this stuff out.
They are *not* lame questions, and you are right that the documentation
is slim, and that the list is one of the few ways to find this sort of
thing out.
Happy VIDing.
--Scott Jones
