411 REFERENCE · Wikibooks
Rebol Programming/request-text
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
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]
]