[q-lang-cvs] q/modules/magick/examples sprite.q,1.3,1.4

[<ag...@us...>]

Update of /cvsroot/q-lang/q/modules/magick/examples
In directory sc8-pr-cvs1:/tmp/cvs-serv27717/modules/magick/examples

Modified Files:
	sprite.q 
Log Message:
yet another workaround for Windows/Direct Input deficiencies. sigh

Index: sprite.q
===================================================================
RCS file: /cvsroot/q-lang/q/modules/magick/examples/sprite.q,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sprite.q	5 Jan 2004 03:24:41 -0000	1.3
--- sprite.q	5 Jan 2004 08:23:07 -0000	1.4
***************
*** 6,11 ****
  /* To use, evaluate `sprite', click left in the GGI window to show the sprite
     at the current pointer position, move the pointer to move it around, click
!    left again to hide the sprite, etc. Press the right mouse button to
!    terminate the input loop at any time. */
  
  import ggi, magick;
--- 6,11 ----
  /* To use, evaluate `sprite', click left in the GGI window to show the sprite
     at the current pointer position, move the pointer to move it around, click
!    left again to hide the sprite, etc. Press a key to terminate the input loop
!    at any time. */
  
  import ggi, magick;
***************
*** 82,90 ****
  loop STATE POS		= process STATE POS (ggi_read VIS GGI_EM_ALL);
  
! // exit when right button pressed
! process STATE _ (ggi_event TYPE _ _ _ _ PARAM)
  			= cleanup STATE
! 			    if (TYPE = GGI_EV_PTRBUTTONPRESS) and then
! 			       (PARAM = 2);
  
  // clean up at exit
--- 82,89 ----
  loop STATE POS		= process STATE POS (ggi_read VIS GGI_EM_ALL);
  
! // exit when key pressed
! process STATE _ (ggi_event TYPE _ _ _ _ _)
  			= cleanup STATE
! 			    if TYPE = GGI_EV_KEYPRESS;
  
  // clean up at exit