Update of /cvsroot/win32forth/win32forth/src/gdi
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv9229/win32forth/src/gdi
Modified Files:
gdiBase.f
Log Message:
gah:Modified to maintain consistency with STC
Index: gdiBase.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/gdi/gdiBase.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** gdiBase.f 8 Jan 2006 09:28:08 -0000 1.7
--- gdiBase.f 1 May 2007 07:32:55 -0000 1.8
***************
*** 1,2 ****
--- 1,4 ----
+ \ $Id$
+
\ *D doc\classes\
\ *! gdiBase
***************
*** 164,168 ****
begin dup
while dup cell+ @
! method execute
@
repeat drop ;
--- 166,170 ----
begin dup
while dup cell+ @
! method Methodexecute
@
repeat drop ;
***************
*** 190,197 ****
begin dup
while dup cell+ @ r@ = \ match this gdi object?
! if drop r>drop true EXIT \ leave test, passed
then @
repeat drop
! r>drop false ;
: GetGdiObjectHandle { GdiObject -- handle } \ w32f
--- 192,199 ----
begin dup
while dup cell+ @ r@ = \ match this gdi object?
! if drop rdrop true EXIT \ leave test, passed
then @
repeat drop
! rdrop false ;
: GetGdiObjectHandle { GdiObject -- handle } \ w32f
|
