Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11334/src
Modified Files:
Class.f
Log Message:
Methods: Addr: Width: and Height: added to class rectangle.
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Class.f 17 Oct 2005 08:56:21 -0000 1.6
--- Class.f 29 Oct 2005 09:42:31 -0000 1.7
***************
*** 1178,1181 ****
--- 1178,1182 ----
:M AddrOf: ( -- n1 ) AddrOf ;M
+ :M Addr: ( -- n1 ) AddrOf ;M
:M Left: ( -- n1 ) Left ;M
:M Top: ( -- n1 ) Top ;M
***************
*** 1183,1186 ****
--- 1184,1190 ----
:M Bottom: ( -- n1 ) Bottom ;M
+ :M Width: ( -- n1 ) right left - ;M
+ :M Height: ( -- n1 ) bottom top - ;M
+
:M .Rect: ( -- )
cr ." Rect: " Left . Top . Right . Bottom .
***************
*** 1238,1240 ****
only forth also definitions
- |
