event-handling - REBOL 3 - 押されたキーを出力するイベントハンドラを追加する方法は?

Question

私の最終目標は、次のようなキーを押すと何かを行うハンドラーを持つことです#"1"

R3 ビュー - イベント処理ドキュメントを読んでいて、 R3 ビューでコードを実行しようとしても、結果が得られません。これは私がコピーしたハンドラです:

my-handler: [
    name: 'my-handler
    priority: 50
    handler: func [event] [
        print ["event:" event/type event/offset]
        if switch event/type [
            close [true]
            key [event/key = escape]
        ] [
            unhandle-events self
            unview event/window
            quit
        ]
        show event/window
        none
    ]
]

イベントハンドラーを実行するために両方の方法を試しましたが、結果はありません:

handle-events my-handler
view layout [button]

と

view/options layout [button] [handler: my-handler]

私は何をすべきか途方に暮れています、誰かが私を正しい方向に向けることができますか?

キーのハンドラーを作成する私の試みは次のとおりです。

view/options [button] [
    handler: [
        name: 'my-handler 
        priority: 50 
        handler: func [event] [
            if (event/key = #"1") [print "hi"]
        ]
    ]
]

私が知る限り、それは何もしません...