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
|
