[Win32forth-cvs] win32forth/apps/Chess Oglwin.f, 1.4, 1.5 Opengl.f, 1.5, 1.6

[Jos v.d.V. <jo...@us...>]

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