跳转到内容

Rebol 编程/告知

来自维基教科书,开放的书籍,开放的世界
INFORM panel /offset where /title ttl /timeout time 

显示一个专门用于警报、对话框和请求器的焦点面板。

INFORM 是一个函数值。

  • panel -- (类型: 对象)
  • /offset
    • where -- 面板偏移量 (类型: 坐标)
  • /title
    • ttl -- 对话框窗口标题 (类型: 字符串)
  • /timeout
    • time -- (类型: 任何)

源代码

[编辑 | 编辑源代码]
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]
]
华夏公益教科书