[Win32forth-cvs] win32forth-stc/src/gdi gdiBase.f,1.1,1.2

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src/gdi
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv12728/win32forth-stc/src/gdi

Modified Files:
	gdiBase.f 
Log Message:
gah:Tidied up loading message order plus additions and bugfixes to class.f

Index: gdiBase.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/gdi/gdiBase.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** gdiBase.f	28 Apr 2007 10:18:57 -0000	1.1
--- gdiBase.f	1 May 2007 07:41:55 -0000	1.2
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+ 
  \ *D doc\classes\
  \ *! gdiBase
***************
*** 164,190 ****
          begin  dup
          while  dup cell+ @
!                method execute
                 @
          repeat drop ;
  
- \ : init-gdi-objects      ( -- ) \ clear all handles
- \         [getmethod] ZeroHandle: GdiObject do-objects ;
- 
- \ [getmethod] not yet implemented
- 
- : init-gdi-object       ( obj -- )
-          ZeroHandle: GdiObject ;
- 
  : init-gdi-objects      ( -- ) \ clear all handles
!          ['] init-gdi-object do-objects ;
  
  :M destroy-gdi-objects: ( -- ) \ destory this object
          0 SetHandle: self ;M
  
- : destroy-gdi-object    ( obj -- ) \ destroy a GDI object
-         destroy-gdi-objects: GdiObject ;
- 
  : destroy-gdi-objects   ( -- ) \ destroy all GDI objects
!         ['] destroy-gdi-object do-objects ;
  
  initialization-chain chain-add init-gdi-objects
--- 166,181 ----
          begin  dup
          while  dup cell+ @
!                method Methodexecute
                 @
          repeat drop ;
  
  : init-gdi-objects      ( -- ) \ clear all handles
!         [getmethod] ZeroHandle: GdiObject do-objects ;
  
  :M destroy-gdi-objects: ( -- ) \ destory this object
          0 SetHandle: self ;M
  
  : destroy-gdi-objects   ( -- ) \ destroy all GDI objects
!         [getmethod] destroy-gdi-objects: GdiObject do-objects ;
  
  initialization-chain chain-add init-gdi-objects