Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22774/src
Modified Files:
Dc.f
Log Message:
Removed usage of TempRect to avoid trouble with applications that use it, too.
Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Dc.f 1 Nov 2005 12:21:40 -0000 1.10
--- Dc.f 5 Nov 2005 14:08:12 -0000 1.11
***************
*** 29,34 ****
int currentfont
- Rectangle FillRect
-
:M ClassInit: ( -- )
ClassInit: super
--- 29,32 ----
***************
*** 321,326 ****
colorref NewColor: PRINTFILLCOLOR
Brush: PRINTFILLCOLOR
! left top right bottom SetRect: FillRect
! FillRect.AddrOf GetHandle: super
( 3 win-parameters ) Call FillRect ?win-error
;M
--- 319,324 ----
colorref NewColor: PRINTFILLCOLOR
Brush: PRINTFILLCOLOR
! left top right bottom SetRect: RECT
! RECT.AddrOf GetHandle: super
( 3 win-parameters ) Call FillRect ?win-error
;M
|
