Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv799/apps/Player4
Modified Files:
PLAYER4.F
Log Message:
Some minor cleanup.
Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** PLAYER4.F 31 Dec 2005 20:48:13 -0000 1.34
--- PLAYER4.F 15 Jan 2006 09:30:14 -0000 1.35
***************
*** 6,10 ****
\
\ Created: Donnerstag, März 31 2005 - dbu
! \ Updated: Sonntag, April 24 2005 - dbu
\
\ A simple Audio- and Videoplayer using the MciVideoWindow class.
--- 6,10 ----
\
\ Created: Donnerstag, März 31 2005 - dbu
! \ Updated: Sonntag, Januar 15 2006 - dbu
\
\ A simple Audio- and Videoplayer using the MciVideoWindow class.
***************
*** 20,26 ****
decimal
! true value turnkey?
! true to turnkey?
! true value MciDebug?
defer PLAYER ' noop is PLAYER
--- 20,25 ----
decimal
! true value turnkey?
! true value MciDebug?
defer PLAYER ' noop is PLAYER
***************
*** 326,329 ****
--- 325,330 ----
unload-chain chain-add-before uninit-player4
+ \ -----------------------------------------------------------------------------
+ \ -----------------------------------------------------------------------------
:noname ( -- ) \ search the catalog
catalog-exist?
***************
*** 336,341 ****
then ; is RandomizeCatalog
-
-
:noname ( -- ) \ search the catalog
catalog-exist?
--- 337,340 ----
***************
*** 370,376 ****
:noname ( -- )
catalog-exist?
! if Refresh: Catalog
! then
! ; is RefreshCatalog
:noname ( -- )
--- 369,374 ----
:noname ( -- )
catalog-exist?
! if Refresh: Catalog
! then ; is RefreshCatalog
:noname ( -- )
***************
*** 387,392 ****
if last-selected-rec delete-record RefreshCatalog
-1 to last-selected-rec
! then
! ; is DeleteItem
:noname ( -- )
--- 385,389 ----
if last-selected-rec delete-record RefreshCatalog
-1 to last-selected-rec
! then ; is DeleteItem
:noname ( -- )
***************
*** 394,399 ****
if delete-collection RefreshCatalog
-1 to last-selected-rec
! then
! ; is DeleteCollection
:noname ( -- )
--- 391,395 ----
if delete-collection RefreshCatalog
-1 to last-selected-rec
! then ; is DeleteCollection
:noname ( -- )
***************
*** 401,406 ****
if last-selected-rec undelete-record RefreshCatalog
-1 to last-selected-rec
! then
! ; is Undelete
:noname ( -- )
--- 397,401 ----
if last-selected-rec undelete-record RefreshCatalog
-1 to last-selected-rec
! then ; is Undelete
:noname ( -- )
***************
*** 408,413 ****
if undelete-all RefreshCatalog
-1 to last-selected-rec
! then
! ; is UndeleteAll
\ -----------------------------------------------------------------------------
--- 403,407 ----
if undelete-all RefreshCatalog
-1 to last-selected-rec
! then ; is UndeleteAll
\ -----------------------------------------------------------------------------
***************
*** 441,446 ****
if PlayFolder: Player4W
else bPlayList
! if PlayList: Player4W
! else PlayFile: Player4W
then
then
--- 435,440 ----
if PlayFolder: Player4W
else bPlayList
! if PlayList: Player4W
! else PlayFile: Player4W
then
then
***************
*** 456,460 ****
: PauseVideo ( -- )
Playing?: Player4W
! if Video?: Player4W
if Pause: Player4W
then
--- 450,454 ----
: PauseVideo ( -- )
Playing?: Player4W
! if Video?: Player4W
if Pause: Player4W
then
***************
*** 463,467 ****
: ResumeVideo ( -- )
Playing?: Player4W
! if Video?: Player4W
if Resume: Player4W
then
--- 457,461 ----
: ResumeVideo ( -- )
Playing?: Player4W
! if Video?: Player4W
if Resume: Player4W
then
***************
*** 532,549 ****
PLAYER-LOOP ;
- \ : volume! ( left-sound-volume right-sound-volume -- )
- \ 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!
-
\ Resize the configuration file when needed.
! DatFile$ count file-exist? [IF]
! DatFile$ count r/o open-file throw dup file-size throw d>s pad ! close-file throw
! pad @ sizeof ConfigDef = check-config unmap-configuration
[THEN]
--- 526,533 ----
PLAYER-LOOP ;
\ Resize the configuration file when needed.
! DatFile$ count file-exist? [IF]
! DatFile$ count r/o open-file throw dup file-size throw d>s pad ! close-file throw
! pad @ sizeof ConfigDef = check-config unmap-configuration
[THEN]
***************
*** 551,556 ****
\ build an application on disk or run Player
\ -----------------------------------------------------------------------------
-
-
turnkey? [if]
' QuitPlayer is StopPlayer
--- 535,538 ----
|
