Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15535/win32forth/apps/SciEdit
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/SciEdit/ClassBrowser.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ClassBrowser.f 9 Jun 2006 12:10:32 -0000 1.5
--- ClassBrowser.f 16 Apr 2007 08:29:04 -0000 1.6
***************
*** 171,184 ****
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
--- 171,187 ----
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
|
