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
|
