Rebol Programming/inform

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