[Win32forth-cvs] win32forth/src/gdi gdiBase.f,1.7,1.8

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

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