[ALLY] Re: Freeze Snapshot?
From: g:santilli:tiscalinet:it at: 14-Nov-2000 13:06
P-O Yliniemi wrote:
> Could not find anything that causes this in
> system/view/vid/vid-feels/edit-text either (saved the system object,
> the system/view object and system/view/vid object to check this out).
>> probe system/view/screen-face/feel
make object! [
redraw: none
detect: func [face event][
foreach evt-func event-funcs [
if not event? evt-func: evt-func face event [
return either evt-func [event] [none]
]
]
event
]
over: none
engage: none
event-funcs: [func [face event][
if all [system/view/focal-face event/type = 'down
event/face <> system/view/focal-face
system/view/focal-face/dirty?] [
do-face system/view/focal-face none]
either all [event/type = 'key face: find-key-face face
event/key] [
if get in face 'action [do-face face event/key]
none
] [event]
]]
]
The first event-func seems to be guilty of that behaviour; you
could just remove it...
HTH,
Gabriele.
--
Gabriele Santilli <[giesse--writeme--com]> - Amigan - REBOL programmer
Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/