411 REFERENCE · Wikibooks
Rebol Programming/confirm
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
CONFIRM question /with choices
DESCRIPTION:
Confirms a user choice.
CONFIRM is a function value.
ARGUMENTS
question -- Prompt to user (Type: series)
REFINEMENTS
/with
choices -- (Type: string block)
SOURCE CODE
confirm: func [
"Confirms a user choice."
question [series!] "Prompt to user"
/with choices [string! block!]
/local yes no
][
question: form question
if with [
yes: "Yes"
no: "No"
if string? choices [yes: choices]
if all [block? choices not empty? choices] [
either tail? next choices [yes: choices/1] [set [yes no] choices]
]
question: reduce [question yes no]
]
request/confirm question
]