[Win32forth-cvs] win32forth/src/lib/OpenGl Opengl.f,1.5,1.6

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

Update of /cvsroot/win32forth/win32forth/src/lib/OpenGl
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12126

Modified Files:
	Opengl.f 
Log Message:
Jos: Adpted for the last demo.

Index: Opengl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/OpenGl/Opengl.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Opengl.f	4 Dec 2015 17:53:02 -0000	1.5
--- Opengl.f	4 Dec 2015 19:09:55 -0000	1.6
***************
*** 805,809 ****
  0 value FirstTime
  
! : reset-opengl  ( - ) release-context glin  ;
  : display-it    ( - ) reset-opengl ( winpause ) painting ;
  
--- 805,809 ----
  0 value FirstTime
  
! : reset-opengl  ( - ) 0 0 wglMakeCurrent ghrc wglDeleteContext 2drop glin  ;
  : display-it    ( - ) reset-opengl ( winpause ) painting ;