Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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.