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)
|
