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