[Win32forth-cvs] win32forth/src/gdi gdiDC.f,1.8,1.9

[Jos v.d.V. <jo...@us...>]

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