Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4294/win32forth/src
Modified Files:
Dc.f
Log Message:
gah: optimised InvertRect: to not use locals (since the stack order is already correct)
Index: Dc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Dc.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Dc.f 8 Oct 2005 08:14:50 -0000 1.7
--- Dc.f 8 Oct 2005 11:50:36 -0000 1.8
***************
*** 278,282 ****
\ 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
--- 278,282 ----
\ 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
***************
*** 284,289 ****
\ 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
--- 284,289 ----
\ Samstag, Oktober 08 2005 dbu
\ Added as suggested by Larry Daniel
! :M InvertRect: ( left top right bottom -- )
! SetRect: FillRect
Addrof: FillRect hDC Call InvertRect ?win-error
;M
|
