Rebol Programming/request-pass

USAGE:

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

DESCRIPTION:

Requests a username and password.

REQUEST-PASS is a function value.

REFINEMENTS

• /offset
  • xy -- (Type: any)
• /user
  • username -- (Type: any)
• /only -- Password only.
• /title
  • title-text -- (Type: any)

SOURCE CODE

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]]]
]