Rebol / Red VID: почему немедленно отправляется событие close?

Question

Я вдохновил http://www.codeconscious.com/rebol/view-notes.html

Я не понимаю: почему закрытие отправлено немедленно: это не то, что я хочу, и я ожидаю, что оно будет отправлено, когда я нажму на закрытие окна

    query-on-close: func[face event][
        print "query-on-close"
        remove-event-func :query-on-close
        RETURN event    

    ]

    view layout [
        do [ insert-event-func :query-on-close ]
    ]

Answer 1

rebol []

query-on-close: func [face event][
    prin event/type prin " "
    either 'close = event/type [
        print "^/query-on-close handler now removed. Next close will now close this window"
        remove-event-func :f
        return none
    ][
        RETURN event    
    ]
]
f: insert-event-func :query-on-close

view layout [
    title "Test screen"
]

Как написано, первое полученное событие распечатает сообщение, а затем удалит обработчик.Вам нужно протестировать специально для события CLOSE .