Rebol Programming/request-list

USAGE:

REQUEST-LIST titl alist /offset xy 

DESCRIPTION:

Requests a selection from a list.

REQUEST-LIST is a function value.

ARGUMENTS

• titl -- (Type: string)
• alist -- (Type: block)

REFINEMENTS

• /offset
  • xy -- (Type: any)

SOURCE CODE

request-list: func [
    "Requests a selection from a list." 
    titl [string!] 
    alist [block!] /offset xy /local rslt list-lay
][
    list-lay: layout [
        origin 10x10 
        h3 titl 
        text-list data alist [rslt: value hide-popup] 
        btn-cancel #"^[" [rslt: none hide-popup]
    ] 
    rslt: none 
    either offset [inform/offset list-lay xy] [inform list-lay] 
    rslt
]