[Win32forth-cvs] win32forth/apps/Player4 Catalog.f,1.32,1.33 Pl_MciWindow.f,1.22,1.23

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

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

Modified Files:
	Catalog.f Pl_MciWindow.f 
Log Message:
Jos: Corrected a small bug

Index: Pl_MciWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Pl_MciWindow.f	25 May 2006 15:36:50 -0000	1.22
--- Pl_MciWindow.f	25 May 2006 17:59:20 -0000	1.23
***************
*** 283,287 ****
                             then
                      else n>record dup>r
!                          RecordDef File_name r@ Cnt_File_name c@  2dup type-space
                           r@ incr-#played r> mark-played
                           (PlayOneFile)
--- 283,287 ----
                             then
                      else n>record dup>r
!                          RecordDef File_name r@ Cnt_File_name c@  2dup type-cr
                           r@ incr-#played r> mark-played
                           (PlayOneFile)

Index: Catalog.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** Catalog.f	25 May 2006 15:36:50 -0000	1.32
--- Catalog.f	25 May 2006 17:59:20 -0000	1.33
***************
*** 18,22 ****
  0 value #Excluded
  
! 0 value       _DriveType
  
  \ Define the configuration of the database
--- 18,22 ----
  0 value #Excluded
  
! true value       _DriveType
  
  \ Define the configuration of the database
***************
*** 599,603 ****
  
  : next-not-played ( - n ) \ -1 means all done.
!         -1  database-mhndl #records-in-database last-selected-rec 0 max  \ Starting from the last-selected record
          do   i n>record >r Requests?    \ Handle requests first when they are there and not ignored
               if    r@ Requested? dup
--- 599,603 ----
  
  : next-not-played ( - n ) \ -1 means all done.
!         -2  database-mhndl #records-in-database last-selected-rec 0 max  \ Starting from the last-selected record
          do   i n>record >r Requests?    \ Handle requests first when they are there and not ignored
               if    r@ Requested? dup
***************
*** 606,610 ****
               else  #excluded            \ There is a collection when > 0
                          if     r@ Incollection?
!                         else   r@ Requested? not and
                                 r@ RecordDef Played- c@  0= and
                          then
--- 606,610 ----
               else  #excluded            \ There is a collection when > 0
                          if     r@ Incollection?
!                         else   r@ Requested? not
                                 r@ RecordDef Played- c@  0= and
                          then