[Win32forth-cvs] win32forth/demos/OpenGLdemos HelpForm.f, 1.2, 1.3 OpenGl_Hello.f, 1.1, 1.2 UfoWithRobot.f, 1.1, 1.2 opengllib-1.11.f, 1.1, 1.2

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

Update of /cvsroot/win32forth/win32forth/demos/OpenGLdemos
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv8779

Modified Files:
	HelpForm.f OpenGl_Hello.f UfoWithRobot.f opengllib-1.11.f 
Log Message:
Jos: Added the ExitScene actions.

Index: opengllib-1.11.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/OpenGLdemos/opengllib-1.11.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** opengllib-1.11.f	4 Dec 2015 19:08:43 -0000	1.1
--- opengllib-1.11.f	5 Dec 2015 12:03:44 -0000	1.2
***************
*** 25,29 ****
  
  menubar Openglmenu         \ Define a menu for the OpenGL window
!   popup "&File"     menuitem   "E&xit"  bye ;
  endbar
  
--- 25,29 ----
  
  menubar Openglmenu         \ Define a menu for the OpenGL window
!   popup "&File"     menuitem   "E&xit"  ExitScene bye ;
  endbar
  
***************
*** 232,240 ****
  ;
  
! : _exitLesson  ( -- )          \ For a clean start in the next lesson
    DeleteTextures
    true to resizing?
   ;
  
  : ResetLesson  ( -- )              \ For a clean start in this lesson
      ResetOpenGL                      \ Cleanup from a previous lesson
--- 232,242 ----
  ;
  
! : _exitLesson  ( -- )         \ For a clean start in the next drawing
    DeleteTextures
    true to resizing?
   ;
  
+ ' _exitLesson is ExitScene
+ 
  : ResetLesson  ( -- )              \ For a clean start in this lesson
      ResetOpenGL                      \ Cleanup from a previous lesson

Index: HelpForm.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/OpenGLdemos/HelpForm.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** HelpForm.f	4 Dec 2015 19:23:50 -0000	1.2
--- HelpForm.f	5 Dec 2015 12:03:44 -0000	1.3
***************
*** 5,10 ****
  aNew -Helpform.f
  
- defer FocusOpenGLWindow
- 
  : $|  ( -<line>- )
      0 temp$ !
--- 5,8 ----
***************
*** 138,142 ****
  :M start:       ( -- )
                  start: Super
-                \ FocusOpenGLWindow
                  ;M
  
--- 136,139 ----

Index: OpenGl_Hello.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/OpenGLdemos/OpenGl_Hello.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** OpenGl_Hello.f	4 Dec 2015 17:50:31 -0000	1.1
--- OpenGl_Hello.f	5 Dec 2015 12:03:44 -0000	1.2
***************
*** 6,10 ****
  
  menubar Openglmenu         \ Define a menu for the OpenGL window
!   popup "&File"     menuitem   "E&xit"  bye ;
  endbar
  
--- 6,10 ----
  
  menubar Openglmenu         \ Define a menu for the OpenGL window
!   popup "&File"     menuitem   "E&xit"  ExitScene bye ;
  endbar
  
***************
*** 105,108 ****
--- 105,109 ----
    lpgmf_buffer free  ;                               \ Free the lpgmf_buffer
  
+ ' ExitIntro is ExitScene
  
    ShowIntro                \ Start the OpenGL window with the OpenGL drawing.

Index: UfoWithRobot.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/OpenGLdemos/UfoWithRobot.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** UfoWithRobot.f	4 Dec 2015 17:50:31 -0000	1.1
--- UfoWithRobot.f	5 Dec 2015 12:03:44 -0000	1.2
***************
*** 6,10 ****
  
  menubar Openglmenu         \ Define a menu for the OpenGL window
!   popup "&File"     menuitem   "E&xit"  bye ;
  endbar
  
--- 6,10 ----
  
  menubar Openglmenu         \ Define a menu for the OpenGL window
!   popup "&File"     menuitem   "E&xit"  ExitScene bye ;
  endbar
  
***************
*** 280,283 ****
--- 280,285 ----
   ;
  
+ ' _exitdrawing is ExitScene
+ 
  : DrawUfoWithRobot  ( -- )           \ (R)edraw of the scene.
      ResetOpenGL                      \ Cleanup from a previous drawing