[Win32forth-cvs] win32forth/apps/Player4 Mediatree.f,1.3,1.4 PLAYER4.F,1.4,1.5 Pl_Version.f,1.3,1.4

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

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]
! 
!