Rebol 编程/request-list

用法

REQUEST-LIST titl alist /offset xy 

描述

从列表中请求一个选择。

REQUEST-LIST 是一个函数值。

参数

• titl -- (类型：字符串)
• alist -- (类型：块)

细化

• /offset
  • xy -- (类型：任何)

源代码

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
]