[Win32forth-cvs] win32forth/apps/Chess fcp3d.f,1.2,1.3

[Dirk B. <db...@us...>]

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

Modified Files:
	fcp3d.f 
Log Message:
Fixed a bug in: init-3Dfont (thank's Andrew for the bug report).

Index: fcp3d.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Chess/fcp3d.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** fcp3d.f	13 Dec 2005 21:45:08 -0000	1.2
--- fcp3d.f	29 May 2006 16:20:46 -0000	1.3
***************
*** 217,221 ****
  : init-3Dfont  ( - )
      s" Comic Sans MS" SetFaceName: vFont
!     Create: vFont drop
      Handle: vFont ghdc call SelectObject drop
     ghdc 1 255 1 .0200e .0880e  WGL_FONT_POLYGONS lpgmf_buffer wglUseFontOutlines
--- 217,221 ----
  : init-3Dfont  ( - )
      s" Comic Sans MS" SetFaceName: vFont
!     Create: vFont ( drop ) \ removed the invalid DROP Montag, Mai 29 2006 dbu
      Handle: vFont ghdc call SelectObject drop
     ghdc 1 255 1 .0200e .0880e  WGL_FONT_POLYGONS lpgmf_buffer wglUseFontOutlines