Mailing List Archive: Re: Field event "missing in action"

[REBOL] Re: Field event "missing in action"

From: brett:codeconscious at: 19-May-2001 17:56


Found it! Well, actually the field event I originally referred to does not
exist but I can effectively create my own.

    system/view/focal-face

Set by the focus function (referred to by view*) that is in turn called by
the field when the enter or tab keys are pressed.

So this now works :)

    view layout [
        style field field [disp/text: face/user-data show disp]
        across label "Last field:" disp: label 100 edge [size: 1x1] return
below
        field user-data 'field-one
        field user-data 'field-two
        field user-data 'field-three
        do [
            insert-event-func [
                either event/type = 'close [
                    if system/view/focal-face [
                        disp/text: system/view/focal-face/user-data show
disp
                        alert "The box has been updated with the last
focal-face."
                    ]
                    quit
                ][event]
            ]
        ]
    ]

Thanks for the help.
Brett.