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
----- Original Message -----
From: Romano Paolo Tenca <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, July 09, 2002 1:54 AM
Subject: [REBOL] Re: key event
> Hi,
>
> > Is there a way to keep get the caret positiopn whenever any key is
pressed?
>
> view layout [
> field feel [
> engage: func [f a e][
> if e/type = 'key [
> print ["key-pressed" e/key]
> print ["caret" system/view/caret]
> ]
> ctx-text/edit/engage f a e
> ]
> ]
> ]
>
> ---
> Ciao
> Romano
>
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
>
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
