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

[REBOL] Re: VID focus questions

From: brett:codeconscious at: 6-Feb-2002 1:09

Hi David,
> > How does one do the following: > > > > 1: give focus to a check, choice, button > > 2: keep focus off of an info or list > > 3: make radio's non-exclusive > > 4: make a choice keycode pickable
I see you have replies to 2 and 3 so I'll make reply to 1. Focus can be set with the FOCUS function: view layout [ my-check: check do [focus my-check] ] However, a check doesn't look like it is focussed. Maybe the redraw function for the check and the other styles need amendment. I'm sipping on some wine, so it has probably affected my priorities! Instead of addressing the visual aspect of focussing I got involved with what happens if you hit the space bar. In Windows doing so when a check box is focussed will toggle the check box off and on. So this is what I've done with this next bit of code: view layout [ my-check: check do [my-check/feel: make my-check/feel [ engage: func [face action event] [ either all [equal? event/type 'key equal? event/key #" "] [ system/view/vid/vid-feel/check/engage face 'down event ] [ system/view/vid/vid-feel/check/engage face action event ] ] ] ] do [focus my-check] ] In essence I've replaced the feel for the check box with a modified version. In the modified version the engage function is redefined to trap the space bar keystroke. If a space keystoke is detected, a simulated mouse down call is made to the original engage function. Other calls to engage are routed to the original functionality. Now I shoudl sleep off this nice wine :) I hope this helps *and* is relevant! Brett