Last modified on 31 October 2012, at 11:54

REBOL Programming/inform

USAGE:Edit

INFORM panel /offset where /title ttl /timeout time 

DESCRIPTION:Edit

Display an exclusive focus panel for alerts, dialogs, and requestors.

INFORM is a function value.

ARGUMENTS:Edit

  • panel -- (Type: object)

REFINEMENTS:Edit

  • /offset
    • where -- Offset of panel (Type: pair)
  • /title
    • ttl -- Dialog window title (Type: string)
  • /timeout
    • time -- (Type: any)

SOURCE CODEEdit

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