Update of /cvsroot/win32forth/win32forth/src/gdi
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv10380/gdi
Modified Files:
gdiDC.f
Log Message:
Jos: Changes that Dirk posted.
Index: gdiDC.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiDC.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** gdiDC.f 28 Apr 2007 10:09:12 -0000 1.8
--- gdiDC.f 20 Apr 2008 13:46:22 -0000 1.9
***************
*** 134,138 ****
[THEN]
! :M Save: ( -- )
\ *G The Save method saves the current state of the device context by copying
\ ** data describing selected objects and graphic modes (such as the bitmap,
--- 134,138 ----
[THEN]
! :M Save: ( -- SavedState )
\ *G The Save method saves the current state of the device context by copying
\ ** data describing selected objects and graphic modes (such as the bitmap,
***************
*** 141,145 ****
hObject call SaveDC ;M
! :M Restore: ( -- )
\ *G The Restore method restores the device context to the specified state.
\ ** The DC is restored by popping state information off a stack created by
--- 141,145 ----
hObject call SaveDC ;M
! :M Restore: ( SavedState -- )
\ *G The Restore method restores the device context to the specified state.
\ ** The DC is restored by popping state information off a stack created by
***************
*** 1089,1092 ****
--- 1089,1093 ----
\ *P \i nYSrc \d y-coordinate of source upper-left corner
\ *P \i dwRop \d
+ >r >r >r GetGdiObjectHandle r> r> r>
8reverse hObject call BitBlt ?win-error ;M
|
