[Win32forth-cvs] win32forth/demos/GdiDemo Metafile.f,1.1,1.2

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

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