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

[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-serv8886

Modified Files:
	Opengl.f 
Log Message:
Jos: Solving the system warnings. 
I think I am ready with OpenGL.

Index: Opengl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/OpenGl/Opengl.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Opengl.f	4 Dec 2015 19:09:55 -0000	1.6
--- Opengl.f	5 Dec 2015 12:05:34 -0000	1.7
***************
*** 805,809 ****
  0 value FirstTime
  
! : reset-opengl  ( - ) 0 0 wglMakeCurrent ghrc wglDeleteContext 2drop glin  ;
  : display-it    ( - ) reset-opengl ( winpause ) painting ;
  
--- 805,809 ----
  0 value FirstTime
  
! : reset-opengl  ( - ) release-context  glin  ;
  : display-it    ( - ) reset-opengl ( winpause ) painting ;
  
***************
*** 1469,1474 ****
  
  : GLFunction: \ CompileTime: (  -- <name> )  \ Map: ProcPointer lastext FunctionName ( case sensitive )
!    current @ >r SaveFunctionName                          \ Save it in temp$
!    "header dovar compile,                    \ Create a header from the input stream in uppercase
     InitFunction r> current !
     does>  @ call-proc    \ Runtime: Executes the function. the stack depends on the used function
--- 1469,1474 ----
  
  : GLFunction: \ CompileTime: (  -- <name> )  \ Map: ProcPointer lastext FunctionName ( case sensitive )
!    current @ >r SaveFunctionName             \ Save it in temp$
! \in-system-ok  "header dovar compile,        \ Create a header from the input stream in uppercase
     InitFunction r> current !
     does>  @ call-proc    \ Runtime: Executes the function. the stack depends on the used function
***************
*** 1476,1481 ****
  
  : VoidGLFunction: \ CompileTime: (  -- <name> ) \ Map: ProcPointer lastext FunctionName ( case sensitive )
!    current @ >r  SaveFunctionName                             \ Save it in temp$
!    "header dovar compile,                       \ Create a header from the input stream in uppercase
     InitFunction  r> current !
     does>  @ call-proc drop  \ Runtime: Executes the function. the stack depends on the used function
--- 1476,1481 ----
  
  : VoidGLFunction: \ CompileTime: (  -- <name> ) \ Map: ProcPointer lastext FunctionName ( case sensitive )
!    current @ >r  SaveFunctionName               \ Save it in temp$
! \in-system-ok   "header dovar compile,          \ Create a header from the input stream in uppercase
     InitFunction  r> current !
     does>  @ call-proc drop  \ Runtime: Executes the function. the stack depends on the used function