Update of /cvsroot/win32forth/win32forth/src/gdi
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8593/src/gdi
Modified Files:
gdiFont.f
Log Message:
Smal bugfix in the gdiFont class
Index: gdiFont.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiFont.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** gdiFont.f 1 Nov 2005 12:21:40 -0000 1.1
--- gdiFont.f 12 Nov 2005 09:52:17 -0000 1.2
***************
*** 142,145 ****
--- 142,146 ----
\ let the user choose a Screen font
:M Choose: ( hWnd -- f )
+ NULL to hDC
[ CF_SCREENFONTS CF_INITTOLOGFONTSTRUCT or ] literal to Flags
Choose ;M
|
