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
|
