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

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

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

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

Index: EX_DDRAW.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/demos/COM/EX_DDRAW.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** EX_DDRAW.F	16 May 2007 20:35:42 -0000	1.1
--- EX_DDRAW.F	19 May 2007 09:09:20 -0000	1.2
***************
*** 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)