[REBOL] Re: Looking for help
From: carl:cybercraft at: 5-Mar-2002 12:18
On 05-Mar-02, Jim Richards wrote:
> Any help would be appreciated. I have been playing around with
> developing a data entry and retrieval system and I am having trouble
> with the text-list display with the find function. The find function
> itself works great but I can't figure out how to display the found
> records.
Are you trying to display just the records found, or highlight the
found ones amongst all the records in a text-list? (I couldn't get
your script to run.) If the former, change 'lines...
show-lines: func [blk][
t-list/lines: blk
show t-list
]
view layout [
t-list: text-list "Cat" "Rat" "Horse" "Dog"
button "Cat" [show-lines ["cat"]]
button "Cat & Rat" [show-lines ["Cat" "Rat"]]
button "Rat & Dog" [show-lines ["Rat" "Dog"]]
]
and if the later, use 'picked...
show-picked: func [blk][
clear t-list/picked
append t-list/picked blk
show t-list
]
view layout [
t-list: text-list "Cat" "Rat" "Horse" "Dog"
button "Cat" [show-picked ["cat"]]
button "Cat & Rat" [show-picked ["Cat" "Rat"]]
button "Rat & Dog" [show-picked ["Rat" "Dog"]]
]
That's the basic way, anyway, though it doesn't update the slider,
which Alan's post does, and hence is more useful. (:
--
Carl Read
