[Win32forth-cvs] win32forth/src/lib/OpenGl OGLEVTS.F,1.2,1.3

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib/OpenGl
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv3564

Modified Files:
	OGLEVTS.F 
Log Message:
Jos: For a better performance.

Index: OGLEVTS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/OpenGl/OGLEVTS.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** OGLEVTS.F	3 Dec 2015 17:43:40 -0000	1.2
--- OGLEVTS.F	18 Dec 2015 16:47:18 -0000	1.3
***************
*** 57,61 ****
  : time-1-period ( max-periods/second - ) ( f: Time1Period ) 1e s>f f/ ;
  
! 60 time-1-period fvalue ns-time-out-done
  
  : wait/restart-timer-slow-action
--- 57,61 ----
  : time-1-period ( max-periods/second - ) ( f: Time1Period ) 1e s>f f/ ;
  
! 66 time-1-period fvalue ns-time-out-done
  
  : wait/restart-timer-slow-action
***************
*** 84,88 ****
  : sounds  ( z"sound-file" -  )
     sounds_on/off
!      if   SND_FILENAME NULL rot call PlaySound  then drop  ;
  
  : sound-action  ( - )  \ Prevents waiting while making a sound
--- 84,88 ----
  : sounds  ( z"sound-file" -  )
     sounds_on/off
!      if   SND_FILENAME SND_ASYNC or NULL rot call PlaySound  then drop  ;
  
  : sound-action  ( - )  \ Prevents waiting while making a sound