[Win32forth-cvs] win32forth/src/gdi gdiDC.f,1.1,1.2

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

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

Modified Files:
	gdiDC.f 
Log Message:
Added some conditional compilation for gdi functions that aren't supported under win98.

Index: gdiDC.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiDC.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** gdiDC.f	1 Nov 2005 12:21:40 -0000	1.1
--- gdiDC.f	2 Nov 2005 16:30:56 -0000	1.2
***************
*** 108,111 ****
--- 108,113 ----
          GetStockObject: self SelectObject self ;M
  
+ winver win2k >= [IF] \ only w2k or later
+ 
  \ SetPenColor method sets the current device context (DC) pen color to the
  \ specified color value. If the device cannot represent the specified color value,
***************
*** 134,137 ****
--- 136,141 ----
          hObject call GetDCBrushColor ;M
  
+ [THEN]
+ 
  \ The Save method saves the current state of the device context by copying
  \ data describing selected objects and graphic modes (such as the bitmap,
***************
*** 375,378 ****
--- 379,384 ----
          hObject call GetROP2 ;M
  
+ winver 1 > [if] \ only Win98 and better
+ 
  \ SetArcDirection sets the drawing direction to be used for arc and
  \ rectangle methods. Possible value for nDirection are:
***************
*** 380,384 ****
  \ AD_CLOCKWISE        Figures drawn clockwise.
  :M SetArcDirection: ( Direction -- OldDirection )
-         winver 1 > \ only Win98 and better
          if hObject call SetArcDirection then ;M
  
--- 386,389 ----
***************
*** 388,391 ****
--- 393,398 ----
          hObject call GetArcDirection ;M
  
+ [then]
+ 
  \ ----------------------------------------------------------------------
  \ Coordinate Space and Transformation