Intercepting Key events in Rebol 2

capture-keys.reb

#!/usr/local/bin/rebview -iv

Rebol [
    Title: "Intercepting Key events"
    Author: "Christopher Ross-Gill"
    Date: 23-Feb-2017

    Notes: [
        https://rebolforum.com/index.cgi?f=printtopic&topicnumber=579&archiveflag=archive
    ]
]

view-block: [
    txt: field
    entry: field feel [
        engage: func [
            face action event
        ][
            switch/default event/key reduce [
                bs [
                    system/view/caret: remove back system/view/caret
                ]

                cr [
                    unview
                ]

                escape [
                    unview
                ]

                'left [
                    system/view/caret: back system/view/caret
                    ; not working
                ]
            ][
                system/view/caret: insert system/view/caret event/key
            ]

            set-face txt face/text
            show face
            event
        ]
    ]
]

view/new center-face layout view-block
focus entry
do-events