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