Update of /cvsroot/win32forth/win32forth/src/gdi
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11161/win32forth/src/gdi
Modified Files:
gdiDC.f
Log Message:
gah:Bugfix to use SelectObject: method and not API call
Index: gdiDC.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiDC.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** gdiDC.f 8 Jan 2006 09:28:08 -0000 1.7
--- gdiDC.f 28 Apr 2007 10:09:12 -0000 1.8
***************
*** 98,102 ****
\ *P \i nObject \d Specifies the type of stock object. This parameter can be one of the following
\ ** values. (see GetStockObject:)
! GetStockObject: self SelectObject self ;M
winver win2k >= [IF] \ only w2k or later
--- 98,102 ----
\ *P \i nObject \d Specifies the type of stock object. This parameter can be one of the following
\ ** values. (see GetStockObject:)
! GetStockObject: self SelectObject: self ;M
winver win2k >= [IF] \ only w2k or later
|
