[Win32forth-cvs] win32forth/src Class.f,1.6,1.7

[Dirk B. <db...@us...>]

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
-