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

[Jos v.d.V. <jo...@us...>]

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

Modified Files:
	FileLister.f 
Log Message:
Jos: Repaired the Win32ForthIDE

Index: FileLister.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/FileLister.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** FileLister.f	8 Jul 2006 17:50:33 -0000	1.3
--- FileLister.f	10 Jul 2006 19:29:05 -0000	1.4
***************
*** 286,290 ****
  int #dirs               \ number of directories found when updating
  int #fls                \ ditto files
- max-path bytes thespecs
  int hwndlabel           \ handle to window to display path
  \ number of files shown is limited only by available memory
--- 286,289 ----
***************
*** 296,299 ****
--- 295,299 ----
  2 cells bytes rootname
  max-path 1+ bytes Treepath
+ path: thespecs
  
  : free-recbuffer  ( -- )
***************
*** 520,525 ****
  
  : FindAllFiles  ( -- )
-                 path-ptr >r
-                 thespecs to path-ptr
                  0 to #dirs 0 to #fls
                  \ we get all directories first
--- 520,523 ----
***************
*** 533,537 ****
                  repeat  FindClose: FileFinder
                  \ now we get the rest of the files
!                 path-ptr first-path"
                  begin   dup 0>
                  while   TreePath count 2swap SetUp: FileFinder
--- 531,535 ----
                  repeat  FindClose: FileFinder
                  \ now we get the rest of the files
!                 thespecs first-path"
                  begin   dup 0>
                  while   TreePath count 2swap SetUp: FileFinder
***************
*** 543,549 ****
                                      then    FindNextFile: FileFinder
                          repeat      FindClose: FileFinder
!                         path-ptr next-path"
                  repeat  2drop
!                 r> to path-ptr ;
  
  : recbuffer()   ( n -- addr )
--- 541,547 ----
                                      then    FindNextFile: FileFinder
                          repeat      FindClose: FileFinder
!                         thespecs next-path"
                  repeat  2drop
!               ;
  
  : recbuffer()   ( n -- addr )