[Win32forth-cvs] win32forth/src/lib FileLister.f,1.4,1.5

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

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

Modified Files:
	FileLister.f 
Log Message:
gah: made thespecs an ivar rather than global (in case 2 instances of the class are in use).

Index: FileLister.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/FileLister.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** FileLister.f	10 Jul 2006 19:29:05 -0000	1.4
--- FileLister.f	15 Jul 2006 16:11:27 -0000	1.5
***************
*** 295,299 ****
  2 cells bytes rootname
  max-path 1+ bytes Treepath
! path: thespecs
  
  : free-recbuffer  ( -- )
--- 295,302 ----
  2 cells bytes rootname
  max-path 1+ bytes Treepath
! \ path: thespecs
! 2 cells class-allot
! max-path 1+ bytes thespecs
! 
  
  : free-recbuffer  ( -- )
***************
*** 480,483 ****
--- 483,488 ----
                  s" .." setrootname: self
                  treepath off
+                 -1 thespecs 2 cells - !
+                 0 thespecs cell- !
                  s" *.*" thespecs place
                  ['] drop to tree-click