[Win32forth-cvs] win32forth/apps/Player4 Catalog.f,1.22,1.23 PLAYER4.F,1.33,1.34

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

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28572/apps/Player4

Modified Files:
	Catalog.f PLAYER4.F 
Log Message:
Jos: Removed a bug from Import a directory tree

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** PLAYER4.F	26 Dec 2005 14:54:44 -0000	1.33
--- PLAYER4.F	31 Dec 2005 20:48:13 -0000	1.34
***************
*** 21,25 ****
  
   true  value turnkey?
! \ false value turnkey?
   true  value MciDebug?
  
--- 21,25 ----
  
   true  value turnkey?
!  true to turnkey?
   true  value MciDebug?
  
***************
*** 233,237 ****
                          if   cr ." REBUILD "
                          then
!                       generate-index-file
                  then
               true vadr-config ExitFailed- c!
--- 233,237 ----
                          if   cr ." REBUILD "
                          then
!                       generate-index-file build-free-list
                  then
               true vadr-config ExitFailed- c!
***************
*** 552,555 ****
--- 552,556 ----
  \ -----------------------------------------------------------------------------
  
+ 
  turnkey? [if]
          ' QuitPlayer is StopPlayer

Index: Catalog.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Catalog.f	26 Dec 2005 14:54:44 -0000	1.22
--- Catalog.f	31 Dec 2005 20:48:13 -0000	1.23
***************
*** 519,523 ****
          if    drop s" \"
          else  count
!         then  s" *.wma" true
          ;
  
--- 519,523 ----
          if    drop s" \"
          else  count
!         then  s" *.*" true  \ Filtering is done by the catalog
          ;
  
***************
*** 545,550 ****
          ;
  
- \ s" F:\Data\geript" s" *.*" true  sdir .s
- 
  \ --------------------------------------------------------------------------
  \ search in the catalog
--- 545,548 ----