rebol [
	Version: 0.0.1
	Note: "A patch to inform for key events. Affect also request, alert and so on"
	Author: "Romano Paolo Tenca"
]

inform: func [
    {Display an exclusive focus panel for alerts, dialogs, and requestors.
    Patched by Romano to accept key events}
    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 ;the patch
    show-popup panel
    either time [wait time] [do-events]
]

;examples

;inform layout [button 200 #"q" {press key "q" to end} [hide-popup]]
;probe request "Press Shift-Y for Yes Shift-N for No"
;probe alert "Press Shift-Y"
;halt