Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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