[Win32forth-cvs] win32forth/demos/GdiDemo Metafile.f,1.2,1.3

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/demos/GdiDemo
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12989/demos/GdiDemo

Modified Files:
	Metafile.f 
Log Message:
Fixed some problems in the gdiClass Library I found when trying the Metafile demo as a turnkey application.

Index: Metafile.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/GdiDemo/Metafile.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Metafile.f	5 Nov 2005 10:53:26 -0000	1.2
--- Metafile.f	5 Nov 2005 13:22:16 -0000	1.3
***************
*** 10,14 ****
  needs gdi/gdi.f \ the GDI class library
  
! 0 value create-tunkey?
  
  \ ----------------------------------------------------------------------
--- 10,14 ----
  needs gdi/gdi.f \ the GDI class library
  
! 1 value create-tunkey?
  
  \ ----------------------------------------------------------------------
***************
*** 29,32 ****
--- 29,33 ----
  create Text1    ," This is a Text"
  create Text2    ,"TEXT" "This is a Text with a\TTAB"
+ int Created?
  
  winver 1 > [if] \ sorry only Win98 and better
***************
*** 93,96 ****
--- 94,98 ----
                          if   \ save it
                               FileName count Save: tMetaDC drop
+                              true to Created?
                          then
                          Destroy: tMetaDC
***************
*** 107,117 ****
  
  :M On_Paint:    ( -- )
!         GetHandle: self GetDC: tDC
!         if   LoadAndDrawIt
!              Release: tDC
          then ;M
  
  :M Start:       ( -- )
  
          \ create a Pen
          hWnd ChooseColor: tPen 0=
--- 109,123 ----
  
  :M On_Paint:    ( -- )
!         Created?
!         if   hWnd GetDC: tDC
!              if   LoadAndDrawIt
!                   Release: tDC
!              then
          then ;M
  
  :M Start:       ( -- )
  
+         FALSE to Created? \ we don't have a Metafile to display yet
+ 
          \ create a Pen
          hWnd ChooseColor: tPen 0=
***************
*** 148,160 ****
  
  :M On_Done:     ( -- )
!         TURNKEYED? 0=
!         if      Destroy: tPen
!                 Destroy: tSolidBrush
!                 Destroy: tHatchBrush
!                 Destroy: tDC
!                 Destroy: tMetaDC
!         then
!         On_Done: super ;M
! 
  
  ;object
--- 154,160 ----
  
  :M On_Done:     ( -- )
!         On_Done: super
!         turnkeyed? if bye then
!         ;M
  
  ;object
***************
*** 168,172 ****
  
  create-tunkey? [if]
!         ' GdiDemo turnkey GdiDemo.exe
  [else]
          GdiDemo
--- 168,172 ----
  
  create-tunkey? [if]
!         ' GdiDemo turnkey Metafile.exe
  [else]
          GdiDemo