[REBOL] Re: key event
From: jim:clatfelter at: 11-Jul-2002 18:37
Hello Romano,
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
feel [
engage: func [f a e][
if e/type = 'key [
get-lines
]
ctx-text/edit/engage f a e
my-area/dirty?: false
]
]
Ciao and thanks,
Jim