Rebol Programming/request-text

USAGE:

REQUEST-TEXT /offset xy /title title-text /default str 

DESCRIPTION:

Requests a text string be entered.

REQUEST-TEXT is a function value.

REFINEMENTS

• /offset
  • xy -- (Type: any)
• /title
  • title-text -- (Type: any)
• /default
  • str -- (Type: any)

SOURCE CODE

request-text: func [
    "Requests a text string be entered." 
    /offset xy 
    /title title-text 
    /default str
][
    if none? str [str: copy ""] 
    text-lay: layout compose [
        across origin 10x10 space 2x4 
        h3 bold (either title [title-text] ["Enter text below:"]) 
        return 
        tf: field 300 str [ok: yes hide-popup] with [flags: [return]] return 
        pad 194 
        btn-enter 50 [ok: yes hide-popup] 
        btn-cancel 50 #"^[" [hide-popup]
    ] 
    ok: no 
    focus tf 
    either offset [inform/offset text-lay xy] [inform text-lay] 
    all [ok tf/text]
]