[q-lang-cvs] q-audio/src audio_player.q,1.14,1.15

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

Update of /cvsroot/q-lang/q-audio/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv11587

Modified Files:
	audio_player.q 
Log Message:
GGI 2.2 compatibility fixes

Index: audio_player.q
===================================================================
RCS file: /cvsroot/q-lang/q-audio/src/audio_player.q,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** audio_player.q	31 Jan 2008 07:00:16 -0000	1.14
--- audio_player.q	10 Mar 2008 11:46:27 -0000	1.15
***************
*** 205,213 ****
  
  expose_cb C (NAME,SF,F,OUT,VIS,WD,HT,WH,LT,LC,RT,RC,POS,I,N,WAV,PLAY)
! 			= update_display (VIS,WD,HT,WH,LT,LC,RT,RC)
  			  NAME I WAV ||
  			  (NAME,SF,F,OUT,VIS,WD,HT,WH,LT,LC,RT,RC,
  			   POS,I,N,WAV,PLAY)
! 			    if not PLAY and then (C>0);
  expose_cb C STATE	= STATE otherwise;
  
--- 205,214 ----
  
  expose_cb C (NAME,SF,F,OUT,VIS,WD,HT,WH,LT,LC,RT,RC,POS,I,N,WAV,PLAY)
! 			= ggi_clear VIS ||
! 			  update_display (VIS,WD,HT,WH,LT,LC,RT,RC)
  			  NAME I WAV ||
  			  (NAME,SF,F,OUT,VIS,WD,HT,WH,LT,LC,RT,RC,
  			   POS,I,N,WAV,PLAY)
! 			    if C>0;
  expose_cb C STATE	= STATE otherwise;