[Win32forth-cvs] win32forth/src/lib Joystick.f,1.4,1.5

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28964/win32forth/src/lib

Modified Files:
	Joystick.f 
Log Message:
gah:Changed to use ?DO to stop hanging when no joysticks are installed.

Index: Joystick.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/Joystick.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Joystick.f	13 Jun 2006 20:48:39 -0000	1.4
--- Joystick.f	20 Jul 2006 15:50:47 -0000	1.5
***************
*** 104,108 ****
  : FindFirstJoyStick     ( -  *lpjoycapsa ID  )  \ ID should be <= MaxJoysticks
    *lpjoycapsa [ sizeof JOYCAPSA ] literal 2dup erase swap MaxJoysticks 0
!         do     2dup  i Call joyGetDevCaps 0=
                    if   nip  I leave
                    then
--- 104,108 ----
  : FindFirstJoyStick     ( -  *lpjoycapsa ID  )  \ ID should be <= MaxJoysticks
    *lpjoycapsa [ sizeof JOYCAPSA ] literal 2dup erase swap MaxJoysticks 0
!         ?do     2dup  i Call joyGetDevCaps 0=
                    if   nip  I leave
                    then