[Win32forth-cvs] win32forth/apps/Chess Opengl.f,1.2,1.3 TOOLSET.F,1.5,1.6

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Chess
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14618/win32forth/apps/Chess

Modified Files:
	Opengl.f TOOLSET.F 
Log Message:
gah: added 3reverse and 4reverse to kernel and modified various files to use it. Modified stack comments in toolset.f to use --  for consistency.
NOTE the new KERNEL.EXE is needed to build the system 

Index: Opengl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Opengl.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Opengl.f	5 May 2005 09:43:25 -0000	1.2
--- Opengl.f	20 Jun 2005 07:40:43 -0000	1.3
***************
*** 168,171 ****
--- 168,175 ----
  Use the sources of SCENE to develop OpenGL
  
+ Saturday, June 18 2005 gah
+ - modified to use 3reverse and 4reverse as suggested by Andrew Stevenson
+ - modified stack comments to use -- for consistency
+ 
  ))
  
***************
[...1390 lines suppressed...]
     s" Switch to full screen?   Note: The key functions can still be used. " qbox
--- 1423,1427 ----
  
  
! : full-screen? ( -- flag )
     s" Window mode. "
     s" Switch to full screen?   Note: The key functions can still be used. " qbox
***************
*** 1430,1434 ****
  FileOpenDialog LoadBitmap "Load bitmap: " "Bitmap Files (*.bmp)|*.bmp|All Files (*.*)|*.*|"
  
! : showing-bitmap(s) ( - )   ['] _load-bitmap is painting glout  ;
  
  : load-bitmap
--- 1434,1438 ----
  FileOpenDialog LoadBitmap "Load bitmap: " "Bitmap Files (*.bmp)|*.bmp|All Files (*.*)|*.*|"
  
! : showing-bitmap(s) ( -- )   ['] _load-bitmap is painting glout  ;
  
  : load-bitmap

Index: TOOLSET.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/TOOLSET.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** TOOLSET.F	29 May 2005 23:26:32 -0000	1.5
--- TOOLSET.F	20 Jun 2005 07:40:43 -0000	1.6
***************
*** 295,299 ****
  
  : least-used ( from n-cells 'cell-array - least )
!    here! over dup here@ execute  swap pad ! -rot swap 2dup - 1 >
          if  do
                  i here@ execute 2dup <=
--- 295,299 ----
  
  : least-used ( from n-cells 'cell-array - least )
!    here! over dup here@ execute  swap pad ! 3reverse 2dup - 1 >
          if  do
                  i here@ execute 2dup <=
***************
*** 1522,1524 ****
  \s
  
!