[REBOL] Question: Passing values to a text-list
From: javier:aviles:eds at: 7-Jun-2001 9:32
Hi rebolers,
I have this function, that returns a block.
request-multlist: func [
"Requests a selection from a list."
titl alist /offset xy /local rslt list-lay list-tar
][
list-tar: []
list-lay: layout [
vh2 titl
across
text-list data alist [rslt: value hide-popup]
arrow left
[
if not none? rslt
[
insert alist rslt
remove list-tar rslt
rslt: none
unfocus
show list-lay
]
]
arrow right
[
if not none? rslt
[
insert list-tar rslt
remove alist rslt
rslt: none
unfocus
show list-lay
]
]
text-list data list-tar [rslt: value hide-popup
] return
across
button "Ok" [unview list-lay]
button "Cancel" [unview list-lay]
]
rslt: none
either offset [view/offset/new list-lay xy] [view/new list-lay]
list-tar
]
if I want that the block returned by request-multlist function be the entry
for a text-list facet, What I should do?
Lab "Afected Components: " text-list data comp_afec 200x100
arrow
[
comp_afec: request-multlist "components" dborigen
unfocus
show panel2
]
Second question:
How can I see, the attributes of an object like text-list facet.
Thanks for your help!!
Javier H. Avilés Avila.
> EDS NMxSC
* [javier--aviles--eds--com]
TEL. 49-61-00 Ext. 56361
