Hello Gabriele,
Yes, but I don't know how to use it or where to put it. Should it be called
by the put function? I'll give that a try. I'd really like it to work. I
tried it like this:
put: func [str num][
if my-area <> system/view/focal-face [return]
if not system/view/caret [return]
cursor
insert system/view/caret str
system/view/caret: skip system/view/caret num
show my-area
]
;your function
cursor: func [face event /local fac][
if all [
system/view/focal-face
event/type = 'down
not within? event/offset win-offset? system/view/focal-face
system/view/focal-face/size
system/view/focal-face/dirty?
] [
fac: system/view/focal-face
unfocus
do-face fac none
fac/dirty?: none
]
event
]
I got this:
** Script Error: Invalid path value: type
** Where: cursor
** Near: if all [
system/view/focal-face
event/type = 'down
not within? event/offset win-offset? system/view/focal-face
system/view/focal-face/size
system/view/focal-face/dirty?
] [
fac: system/view/focal-face
unfocus
do-face fac none
fac/dirty?: none
]
event
>>
I'm sure I haven't put your function into the program correctly. Can you see
how?
Thanks,
Jim
----- Original Message -----
From: Gabriele Santilli <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED] <[EMAIL PROTECTED]>
Sent: Wednesday, June 26, 2002 4:04 AM
Subject: [REBOL] Re: Editor
> Hi Jim,
>
> On Wednesday, June 26, 2002, 3:20:18 AM, you wrote:
>
> jcn> It works okay as it is. The only problem is that it doesn't work the
first
> jcn> time after using the keyboard. The caret disappears. You have to then
use
>
> Did you get my post about the event func?
>
> Regards,
> Gabriele.
> --
> Gabriele Santilli <[EMAIL PROTECTED]> -- REBOL Programmer
> Amigan -- AGI L'Aquila -- REB: http://web.tiscali.it/rebol/index.r
>
> --
> 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.
