[Win32forth-cvs] win32forth/src Dc.f,1.5,1.6

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

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24685/src

Modified Files:
	Dc.f 
Log Message:
Added Polyline: and removed a duplicated definition of FillPath:
as suggested by David R Pochin in Forthwrite 127 (December 2004).

Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Dc.f	29 Aug 2005 15:56:27 -0000	1.5
--- Dc.f	2 Oct 2005 07:25:36 -0000	1.6
***************
*** 185,189 ****
  \ Added Polygon: as suggested by Pierre Abbat
  :M Polygon:     ( ptr cnt - )
!         swap hDC Call Polygon ?win-error ;m
  
  :M PolyDraw:    ( tptr pptr cnt -- )
--- 185,194 ----
  \ Added Polygon: as suggested by Pierre Abbat
  :M Polygon:     ( ptr cnt - )
!         swap hDC Call Polygon	?win-error ;m
! 
! \ Samstag, Oktober 01 2005 dbu
! \ Added as suggested by David R Pochin in Forthwrite 127 (December 2004)
! :M Polyline:	( ptr cnt - )
!         swap hDC Call Polyline  ?win-error ;m
  
  :M PolyDraw:    ( tptr pptr cnt -- )
***************
*** 199,204 ****
          hDC Call StrokePath     ?win-error ;M
  
! :M FillPath:    ( -- )                  \ rls - new  ? Needs Brushes ?
!         hDC Call FillPath       ?win-error ;M
  
  :M StrokeAndFillPath:    ( -- )         \ rls - new  ? Needs Brushes ?
--- 204,211 ----
          hDC Call StrokePath     ?win-error ;M
  
! \ Samstag, Oktober 01 2005 dbu
! \ Removed as suggested by David R Pochin in Forthwrite 127 (December 2004)
! \ :M FillPath:    ( -- )                  \ rls - new  ? Needs Brushes ?
! \         hDC Call FillPath       ?win-error ;M
  
  :M StrokeAndFillPath:    ( -- )         \ rls - new  ? Needs Brushes ?
***************
*** 206,210 ****
  
  :M EndPath:     ( -- )
!         hDC Call EndPath       ?win-error ;M
  
  :M SetROP2:     ( mode -- oldmode )
--- 213,217 ----
  
  :M EndPath:     ( -- )
!         hDC Call EndPath       	?win-error ;M
  
  :M SetROP2:     ( mode -- oldmode )