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
|
