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 )
|
