[Win32forth-cvs] win32forth/apps/Win32ForthIDE ClassBrowser.f, 1.5, 1.6

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

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

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/apps/Win32ForthIDE/ClassBrowser.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ClassBrowser.f	13 Oct 2006 03:55:11 -0000	1.5
--- ClassBrowser.f	16 Apr 2007 08:29:05 -0000	1.6
***************
*** 185,198 ****
                  drop -1 false ;
  
! : AddMethods    ( class-pfa -- )  \ add methods of a class to the treview
                  { \ 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
                  dup BODY> hPrev hRoot true AddName \ add name
                  hPrev dup to hRoot to hSon AddMethods ; \ add methods
--- 185,201 ----
                  drop -1 false ;
  
! : AddMethods    ( class-pfa -- )  \ add methods of a class to the treeview
                  { \ 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 treeview
                  dup BODY> hPrev hRoot true AddName \ add name
                  hPrev dup to hRoot to hSon AddMethods ; \ add methods