[REBOL] Re: key event
From: jim:clatfelter at: 11-Jul-2002 18:37
Thanks for that code. I used it as below to keep track of the lines and to
keep the area from ever being dirty. That seems to be the key. It only
affects my-area. It doesn't mess with fields or request-file. Finally the
buttons always work, and focus stays on my-area -- since it's never dirty!
I'm going to try to scroll the slider here too -- on each keystroke. I
haven' figured that one out yet.
my-area: area para 
500x490 my-file white white font-name font-fixed wrap
engage: func [f a e][
if e/type = 'key [
ctx-text/edit/engage f a e
Ciao and thanks,