[Win32forth-cvs] win32forth/src Class.f, 1.29, 1.30 Window.f, 1.17, 1.18

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

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

Modified Files:
	Class.f Window.f 
Log Message:
gah:Modified to maintain consistency with STC

Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** Window.f	8 Nov 2006 11:11:24 -0000	1.17
--- Window.f	1 May 2007 07:32:55 -0000	1.18
***************
*** 6,9 ****
--- 6,11 ----
  \ *S Glossary
  
+ require generic.f
+ 
  cr .( Loading Window Class...)
  
***************
*** 245,249 ****
                  ?dup
                  if      r@ WndProcError
!                 then    r>drop
                  r> sp0 !
          else    \ -- a1                                 \ the object address
--- 247,251 ----
                  ?dup
                  if      r@ WndProcError
!                 then    rdrop
                  r> sp0 !
          else    \ -- a1                                 \ the object address

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** Class.f	30 Apr 2007 08:27:44 -0000	1.29
--- Class.f	1 May 2007 07:32:55 -0000	1.30
***************
*** 1206,1209 ****
--- 1206,1216 ----
   IF  idxBase 2 - w@ ( #elems ) * +  CELL+  THEN ;
  
+ \ --------------------------------------------------------------------
+ \ ------------- Support for windows procedures etc -------------------
+ \ --------------------------------------------------------------------
+ 
+ ' execute alias Methodexecute
+ ' catch   alias Methodcatch
+ 
  \ ====================================================================
  \ Support for 2 dimensional arrays