[REBOL] Re: [view] accelerating view...
From: didec:tiscali at: 15-Jan-2004 20:27
Re: [view] accelerating view...
Hi Max
> I REAAAAALLLYYYYY need to get view refresh more quickly.
>
The 'eat function from Romano and Gabrielle is here for that.
Not sure it's the last version (not found on his web page), but here is one :
eat-ctx: context [
free: true
set 'eat func [/only blk [block!]] [
if free [
free: false
any [only blk: [move]]
until [
only: pick system/view/event-port 1
not all [only find blk only/type]
]
if only [awake only]
free: true
]
]
]
To use it: put the 'eat func where you want events to be eat (usually in feel/engage,
before a "show face").
DideC
