411 REFERENCE · Wikibooks
Rebol Programming/inform
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
INFORM panel /offset where /title ttl /timeout time
DESCRIPTION:
Display an exclusive focus panel for alerts, dialogs, and requestors.
INFORM is a function value.
ARGUMENTS:
panel -- (Type: object)
REFINEMENTS:
/offset
where -- Offset of panel (Type: pair)
/title
ttl -- Dialog window title (Type: string)
/timeout
time -- (Type: any)
SOURCE CODE
inform: func [
{Display an exclusive focus panel for alerts, dialogs, and requestors.}
panel [object!]
/offset where [pair!] "Offset of panel"
/title ttl [string!] "Dialog window title"
/timeout time
][
panel/text: copy any [ttl "Dialog"]
panel/offset: either offset [where] [system/view/screen-face/size - panel/size / 2]
panel/feel: system/view/window-feel
show-popup panel
either time [if none? wait time [hide-popup/timeout]] [do-events]
]