[Win32forth-cvs] win32forth/src Dc.f,1.6,1.7

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

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

Modified Files:
	Dc.f 
Log Message:
Added RoundRect: and InvertRect as suggested by Larry Daniel

Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Dc.f	2 Oct 2005 07:25:36 -0000	1.6
--- Dc.f	8 Oct 2005 08:14:50 -0000	1.7
***************
*** 276,279 ****
--- 276,292 ----
          0 0 0 0 Arc: self ;M
  
+ \ Samstag, Oktober 08 2005 dbu
+ \ Added as suggested by Larry Daniel
+ :M RoundRect: { left top right bottom width height }
+         height width bottom right top left hDC Call RoundRect ?win-error
+         ;M
+ 
+ \ Samstag, Oktober 08 2005 dbu
+ \ Added as suggested by Larry Daniel
+ :M InvertRect: { left top right bottom  }
+         left top right bottom SetRect: FillRect
+         Addrof: FillRect hDC Call InvertRect ?win-error
+         ;M
+ 
  :M CreateCompatibleBitmap: ( width height -- hbitmap )
          swap hdc