[Win32forth-cvs] win32forth/src/tools ClassBrowser.f,1.4,1.5

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

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

Modified Files:
	ClassBrowser.f 
Log Message:
gah: Added #mlists to enable multiple methods lists (currently set to2).

Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/ClassBrowser.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ClassBrowser.f	9 Jun 2006 10:42:37 -0000	1.4
--- ClassBrowser.f	16 Apr 2007 08:29:06 -0000	1.5
***************
*** 172,180 ****
                  { \ superlist -- }
                  dup MFA swap
!                 SFA @ MFA @ to superlist
                  begin  @ dup  superlist <>
                  while  dup cell+ @ HASH> ( cfa )
                         if hPrev hSon false AddName else drop then
!                 repeat drop ;
  
  : (AddClass)    ( class-pfa -- )  \ add class to the treview
--- 172,183 ----
                  { \ superlist -- }
                  dup MFA swap
!                 SFA @ MFA
!                 #mlists 0 do
!                 2dup i tuck cells+ @ to superlist cells+
                  begin  @ dup  superlist <>
                  while  dup cell+ @ HASH> ( cfa )
                         if hPrev hSon false AddName else drop then
!                 repeat drop
!                 loop   2drop ;
  
  : (AddClass)    ( class-pfa -- )  \ add class to the treview