Last modified on 13 November 2012, at 10:51

REBOL Programming/request-text

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.

REFINEMENTSEdit

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

SOURCE CODEEdit

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