Rebol 程式設計/request-pass

用法

REQUEST-PASS /offset xy /user username /only /title title-text 

描述

請求使用者名稱和密碼。

REQUEST-PASS 是一個函式值。

細化

• /offset
  • xy -- (型別：任何)
• /user
  • 使用者名稱 -- (型別：任何)
• /only -- 僅密碼。
• /title
  • 標題文字 -- (型別：任何)

原始碼

request-pass: func [
    "Requests a username and password." 
    /offset xy 
    /user username 
    /only "Password only." 
    /title title-text
][
    if none? user [username: copy ""] 
    pass-lay: layout compose [
        style tx text 40x24 middle right 
        across origin 10x10 space 2x4 
        h3 (either title [title-text] [either only ["Enter password:"] ["Enter username and password:"]]) 
        return 
        (either only [[]] [[tx "User:" userf: field username return]]) 
        tx "Pass:" pass: field hide [ok: yes hide-popup] with [flags: [return tabbed]] return 
        pad 140 
        btn-enter 50 [ok: yes hide-popup] 
        btn-cancel 50 #"^[" [hide-popup]
    ] 
    ok: no 
    focus either only [pass] [userf] 
    either offset [inform/offset pass-lay xy] [inform pass-lay] 
    all [ok either only [pass/data] [reduce [userf/data pass/data]]]
]