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
! |
