Update of /cvsroot/win32forth/win32forth/apps/Chess
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15140
Modified Files:
Oglwin.f Opengl.f
Log Message:
Jos: Now it can also be used with the new console.
Index: Opengl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Opengl.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Opengl.f 29 Jun 2008 19:49:30 -0000 1.5
--- Opengl.f 2 Aug 2008 10:16:51 -0000 1.6
***************
*** 184,188 ****
needs Resources.f
needs AcceleratorTables.f
! needs NoConsole.f
needs struct.f \ For the use of C-like structures.
--- 184,189 ----
needs Resources.f
needs AcceleratorTables.f
!
! z" w32fConsole.dll" Call GetModuleHandle [IF] needs NoConsole.f [THEN]
needs struct.f \ For the use of C-like structures.
***************
*** 801,805 ****
: reset-opengl ( - ) \ cleanup OpenGL
! release-context glin ;
: display-it ( - ) reset-opengl winpause painting ;
--- 802,806 ----
: reset-opengl ( - ) \ cleanup OpenGL
! release-context glin ;
: display-it ( - ) reset-opengl winpause painting ;
Index: Oglwin.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Oglwin.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Oglwin.f 29 Jun 2008 19:49:30 -0000 1.4
--- Oglwin.f 2 Aug 2008 10:16:51 -0000 1.5
***************
*** 89,93 ****
:M WindowStyle: ( -- style ) WindowStyle ;M
:M On_Init: ( -- ) On_Init: super ;M
! :M WM_KEYDOWN ( key l -- res ) drop key-event 0 ;M
--- 89,93 ----
:M WindowStyle: ( -- style ) WindowStyle ;M
:M On_Init: ( -- ) On_Init: super ;M
! :M WM_KEYDOWN ( key l -- res ) drop key-event 0 ;M
***************
*** 153,159 ****
' cls-openGL is painting
- : MsgLoop ( -- ) start-opengl begin MessageLoop again ;
! \IN-SYSTEM-OK : StandaloneApp ( - ) NoConsoleIO NoConsoleInImage ;
\s
--- 153,163 ----
' cls-openGL is painting
! z" w32fConsole.dll" Call GetModuleHandle [IF]
! \IN-SYSTEM-OK : StandaloneApp ( - ) NoConsoleIO NoConsoleInImage ;
! [ELSE] : StandaloneApp ( - ) ;
! [THEN]
!
! : MsgLoop ( -- ) start-opengl begin MessageLoop again ;
\s
|
