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