[REBOL] Re: listen to events only for a specific window?
From: arolls:bigpond:au at: 14-Jul-2001 4:57
How useful!
But see below...
> You really want to block the window out? I used a nice trick
> lately to do that (I wasn't using INFORM for other reasons). I did
> something like:
>
> layout [at 0x0 blocker: box effect [grayscale]]
>
> busy-win: func [win] [
> append win/pane make blocker [size: win/size]
> ]
> free-win: func [win] [
> ; WIN must have been blocked first!
> remove back tail win/pane
> ]
>
> This as the nice visual effect of turning blocked windows into
> grayscale. :-)
In this first example I tried,
only the button turns grey... interesting.
It doesn't stop the first window
animations etc.
You put a screen on top to stop
mouse input but that doesn't stop
background stuff as in this demo:
; needs your functions defined above
view lay: layout [
l: image white rate 1 feel [
engage: func [f a e][if a = 'time [
l/color: white - l/color show l]
]
]
button "block" [busy-win lay view/new layout [
button "unblock" [free-win lay unview]]
]
]
Anton.
