[REBOL] Re: Field event "missing in action"
From: gjones05:mail:orion at: 18-May-2001 23:30
From: "Brett Handley"
<snip>
> Try this
>
> 1) Execute the code below.
> 2) Type something into the first field but don't hit tab or enter, nor
click
> away.
> 3) Close the window.
>
> 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 [
> alert "Closing now. Is the last field box correct?"
[quit]
> ][event]
> ]
> ]
> ]
>
> So how can I make the "Last field" box show "field-one" in this
situation?
> Brett
Hi, Brett,
>From Cyphre's example, might it be something like:
insert-event-func func [
f e
][
if e/type = 'close [
disp/text: copy f1/text
show disp
return none
]
return e
]
view layout [
style field field [disp/text: face/user-data show disp]
across label "Last field:"
disp: label 100 edge [size: 1x1]
return below
f1: field user-data 'field-one
field user-data 'field-two
field user-data 'field-three
]
--Scott Jones