[Win32forth-cvs] win32forth/src Class.f,1.16,1.17

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

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

Modified Files:
	Class.f 
Log Message:
gah: Added extra documentation

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Class.f	8 Feb 2006 10:54:43 -0000	1.16
--- Class.f	1 Jun 2006 08:08:18 -0000	1.17
***************
*** 950,964 ****
  : [[  true abort"  [[ must be preceeded by a selector "   ; IMMEDIATE
  
! : <noClassPointer ( -- ) -1 ^class XFA ! ;    \ XFA is -1 when no class pointer
! 
! \ Set a class and its subclasses to indexed
! 
! : <Indexed  ( width -- )  ?Class  ^Class XFA ! ( <ClassPointer ) ;
  
! \ Compile a self reference, but only if the class is guaranteed to
! \ have a class pointer.  We can send ourself late-bound messages
! \ with the syntax:   Msg: [ self ]
  
  : Self  ( -- addr )
          POSTPONE ^base ; IMMEDIATE
  
--- 950,966 ----
  : [[  true abort"  [[ must be preceeded by a selector "   ; IMMEDIATE
  
! : <noClassPointer ( -- )
! \ *G Set a class and its subclasses to suppress the class pointer when used as IVARs.
! \ XFA is -1 when no class pointer is reserved for IVARs.
!         -1 ^class XFA ! ;
  
! : <Indexed  ( width -- )
! \ *G Set a class and its subclasses to indexed.
!         ?Class  ^Class XFA ! ( <ClassPointer ) ;
  
  : Self  ( -- addr )
+ \ *G Compile a self reference, but only if the class is guaranteed to
+ \ ** have a class pointer.  We can send ourself late-bound messages
+ \ ** with the syntax:   Msg: [ self ].
          POSTPONE ^base ; IMMEDIATE