[REBOL] Re: Editor

From: jim:clatfelter at: 26-Jun-2002 6:52

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

1 · 2 · 3 · 4 · 5 ... 20 · 21 · [22] · 23 · 24 · See whole thread