Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29038/win32forth/apps/Player4
Modified Files:
Mediatree.f PLAYER4.F Pl_Version.f
Log Message:
Jos: Made Refresh 2* faster
Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** PLAYER4.F 24 Apr 2005 13:35:54 -0000 1.4
--- PLAYER4.F 25 Apr 2005 12:29:07 -0000 1.5
***************
*** 199,203 ****
catalog-exist?
! if get-media-path-from-dat-file map-database
then
addr: self to player-base
--- 199,204 ----
catalog-exist?
! if get-media-path-from-dat-file map-database
! database-mhndl #records-in-database . ." Records"
then
addr: self to player-base
***************
*** 289,292 ****
--- 290,299 ----
then ; is SearchCatalog
+ :noname ( -- )
+ SW_HIDE Show: Catalog
+ Refresh: Catalog
+ SW_RESTORE Show: Catalog
+ ; is RefreshCatalog
+
\ -----------------------------------------------------------------------------
\ Simple command line handling
***************
*** 414,422 ****
\ depth 2 >=
\ if 0max 99 min 65535 100 */ 65536 * swap
! \ 0max 99 min 65535 100 */ +
\ 0 Call waveOutSetVolume drop
\ else cr ." No enough parameters !!! "
\ then ;
! \
\ 100 100 volume!
--- 421,429 ----
\ depth 2 >=
\ if 0max 99 min 65535 100 */ 65536 * swap
! \ 0max 99 min 65535 100 */ +
\ 0 Call waveOutSetVolume drop
\ else cr ." No enough parameters !!! "
\ then ;
! \
\ 100 100 volume!
***************
*** 432,435 ****
PLAYER4
[then]
!
! |
