Update of /cvsroot/win32forth/win32forth/demos/GdiDemo
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17197/demos/GdiDemo
Modified Files:
Metafile.f
Log Message:
Fixed a bug in the SetArcDirection: method of the gdiDC class.
Index: Metafile.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/GdiDemo/Metafile.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Metafile.f 1 Nov 2005 12:21:40 -0000 1.1
--- Metafile.f 5 Nov 2005 10:53:26 -0000 1.2
***************
*** 30,33 ****
--- 30,41 ----
create Text2 ,"TEXT" "This is a Text with a\TTAB"
+ winver 1 > [if] \ sorry only Win98 and better
+ :M SetArcDirection: ( Direction -- OldDirection )
+ SetArcDirection: tMetaDC ;M
+ [else]
+ :M SetArcDirection: ( Direction -- OldDirection )
+ ;M
+ [then]
+
: CreateIt ( -- )
hWnd GetDC: tDC
|
