[Win32forth-cvs] win32forth/src/gdi gdiDC.f,1.3,1.4 gdiMetafile.f,1.2,1.3

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

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

Modified Files:
	gdiDC.f gdiMetafile.f 
Log Message:
Removed usage of TempRect to avoid trouble with applications that use it, too.

Index: gdiMetafile.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiMetafile.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** gdiMetafile.f	5 Nov 2005 13:22:16 -0000	1.2
--- gdiMetafile.f	5 Nov 2005 14:08:13 -0000	1.3
***************
*** 18,21 ****
--- 18,23 ----
  :class gdiMetafile <super gdiObject
  
+ rectangle RECT
+ 
  :M ClassInit: ( -- )
          ClassInit: super
***************
*** 60,65 ****
  \ Play the metafile in a rectangle
  :M PlayInRect:  ( left top right bottom hDestDC -- )
!         GetGdiObjectHandle >r SetRect: TempRect
!         AddrOf: TempRect hObject r>
          call PlayEnhMetaFile drop ;M
  
--- 62,67 ----
  \ Play the metafile in a rectangle
  :M PlayInRect:  ( left top right bottom hDestDC -- )
!         GetGdiObjectHandle >r SetRect: RECT
!         AddrOf: RECT hObject r>
          call PlayEnhMetaFile drop ;M
  

Index: gdiDC.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiDC.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** gdiDC.f	5 Nov 2005 10:53:27 -0000	1.3
--- gdiDC.f	5 Nov 2005 14:08:13 -0000	1.4
***************
*** 25,28 ****
--- 25,29 ----
  gdiTEXTMETRIC   TEXTMETRIC
  gdiPOINT        POINT
+ rectangle       RECT
  
  : GetObjectColor { colorref -- colorref }
***************
*** 601,606 ****
  \ interior.
  :M InvertRect: ( left top right bottom  -- )
!         SetRect: TempRect
!         Addrof: TempRect hObject Call InvertRect ?win-error ;M
  
  \ ----------------------------------------------------------------------
--- 602,607 ----
  \ interior.
  :M InvertRect: ( left top right bottom  -- )
!         SetRect: RECT
!         Addrof: RECT hObject Call InvertRect ?win-error ;M
  
  \ ----------------------------------------------------------------------
***************
*** 703,707 ****
  
  : InitRect      ( left top right bottom hBrush -- hBrush &rect )
!         GetGdiObjectHandle >r SetRect: TempRect r> Addrof: TempRect ;
  
  \ The FillRect method fills a rectangle by using the specified brush.
--- 704,708 ----
  
  : InitRect      ( left top right bottom hBrush -- hBrush &rect )
!         GetGdiObjectHandle >r SetRect: RECT r> Addrof: RECT ;
  
  \ The FillRect method fills a rectangle by using the specified brush.