REBOL Programming/request-text

From Wikibooks, open books for an open world
< REBOL Programming
Jump to: navigation, search

USAGE:[edit]

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

DESCRIPTION:[edit]

Requests a text string be entered.

REQUEST-TEXT is a function value.

REFINEMENTS[edit]

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

SOURCE CODE[edit]

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