Update of /cvsroot/win32forth/win32forth/src/gdi
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3346/src/gdi
Modified Files:
gdiMetafileDc.f
Log Message:
- Fixed a bug in StartRecording:
Index: gdiMetafileDc.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiMetafileDc.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** gdiMetafileDc.f 8 Jan 2006 09:28:08 -0000 1.3
--- gdiMetafileDc.f 17 Sep 2006 09:35:13 -0000 1.4
***************
*** 21,25 ****
RECTANGLE MetaRect
- create MetaName maxstring allot
gdiMetafile Metafile
--- 21,24 ----
***************
*** 31,35 ****
:M ClassInit: ( -- )
ClassInit: super
- 0 MetaName !
0 0 10000 10000 SetRect: self
;M
--- 30,33 ----
***************
*** 64,80 ****
\ *G Start recording of a Metafile
GetGdiObjectHandle >r
- >r
- \ build description string
- \ s" Win32Forth" pad place
- \ pad count + dup 0 c! char + dup
- \ MetaName count dup >r place r>
- \ + char + 0 c!
! \ pad 1+
! 0 \ lpDescription
! Addrof: MetaRect
! 0 \ lpstrFileName
! r> call CreateEnhMetaFile dup to hObject
! hObject 0<>
;M
--- 62,71 ----
\ *G Start recording of a Metafile
GetGdiObjectHandle >r
! 0 \ lpDescription
! Addrof: MetaRect \ bounding rectangle
! 0 \ lpstrFileName
! r> \ hRefDC
! call CreateEnhMetaFile dup SetHandle: self 0<>
;M
***************
*** 83,87 ****
hObject ?dup
if call CloseEnhMetaFile dup SetHandle: Metafile 0<>
! 0 to hObject
else false
then ;M
--- 74,78 ----
hObject ?dup
if call CloseEnhMetaFile dup SetHandle: Metafile 0<>
! 0 SetHandle: self
else false
then ;M
|
