[Win32forth-cvs] win32forth/src Dc.f,1.10,1.11

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

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