Question: Passing values to a text-list
[1/4] 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
[2/4] from: javier:aviles:eds at: 7-Jun-2001 9:51
[3/4] from: gjones05:mail:orion at: 7-Jun-2001 12:10
From: "Aviles, Javier"
> I have this function, that returns a block.
> request-multlist: func [
<<quoted lines omitted: 39>>
> ]
> if I want that the block returned by request-multlist function be the
entry
> for a text-list facet, What I should do?
...
Hi, Javier,
I was unsure exactly how you wanted the different components to
interact. So I simplified the function, but hopefully you will be able
to adapted the methods to better fit your needs:
request-multlist: func [
"Requests a selection from a list."
titl alist /offset xy /local rslt list-lay list-tar
][
list-tar: copy []
list-lay: layout [
vh2 titl
across
tl1: text-list data alist [
append tl2/lines tl1/picked
remove find tl1/data tl1/picked
show [tl1 tl2]
]
tl2: text-list
[
append tl1/lines tl2/picked
remove find tl2/data tl2/picked
show [tl1 tl2]
]
return
across
button "Ok" [list-tar: copy tl2/data hide-popup ]
button "Cancel" [hide-popup ]
]
either offset [inform/offset list-lay xy] [inform list-lay]
list-tar
]
probe request-multlist "name" ["cat" "dog" "tree"]
--Scott Jones
[4/4] from: javier:aviles:eds at: 7-Jun-2001 15:44
Thanks for your help, it works better... less code better solution!!
Javier H. Avilés Avila.
> EDS NMxSC
* [javier--aviles--eds--com]
TEL. 49-61-00 Ext. 56361
Notes
- Quoted lines have been omitted from some messages.
View the message alone to see the lines that have been omitted