[Win32forth-cvs] win32forth/demos/COM EX_DDRAW.F,1.2,1.3

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/win32forth/win32forth/demos/COM
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14332

Modified Files:
	EX_DDRAW.F 
Log Message:
Jos: Changed CoCreateInstance as Thomas Dixon hinted.

Index: EX_DDRAW.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/COM/EX_DDRAW.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** EX_DDRAW.F	18 Sep 2005 11:10:30 -0000	1.2
--- EX_DDRAW.F	19 May 2007 09:10:07 -0000	1.3
***************
*** 29,33 ****
  
  : setup-ddraw ( -- )
!   dx7 IDirectx7 1 0 Directx7 CoCreateInstance abort" Unable to get Directx!"
    dd7 0 dx7 DirectDrawCreate abort" DirectDrawCreate failed!"
    16 480 640 full-screen \ set screen resolutuion (use window-mode to work from a window)
--- 29,33 ----
  
  : setup-ddraw ( -- )
!   dx7 IDirectx7 1 0 Directx7 Call CoCreateInstance abort" Unable to get Directx!"
    dd7 0 dx7 DirectDrawCreate abort" DirectDrawCreate failed!"
    16 480 640 full-screen \ set screen resolutuion (use window-mode to work from a window)