Menu
▾
▴
[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.49,1.50
|
From: Jos v.d.V. <jo...@us...> - 2006-05-14 20:21:27
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7200/apps/Player4 Modified Files: PLAYER4.F Log Message: Jos: Minimized the execution vectors. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.49 retrieving revision 1.50 diff -C2 -d -r1.49 -r1.50 *** PLAYER4.F 14 May 2006 13:56:11 -0000 1.49 --- PLAYER4.F 14 May 2006 20:21:25 -0000 1.50 *************** *** 20,24 **** decimal - true value turnkey? true value MciDebug? --- 20,23 ---- *************** *** 26,46 **** defer PLAYER ' noop is PLAYER defer RefreshCatalog ' noop is RefreshCatalog - defer RandomizeCatalog ' noop is RandomizeCatalog defer SortCatalog ' noop is SortCatalog - defer SearchCatalog ' noop is SearchCatalog - defer DeleteItem ' noop is DeleteItem - defer DeleteCollection ' noop is DeleteCollection - defer Undelete ' noop is Undelete - defer UndeleteAll ' noop is UndeleteAll - defer ShowDeleted ' noop is ShowDeleted - defer SetRandomLevel ' noop is SetRandomLevel - defer SortRandom ' noop is SortRandom - defer SortLeastPlayed ' noop is SortLeastPlayed - defer SortSize ' noop is SortSize - defer RefreshWindow ' noop is SortSize defer PlaySelectedFromTreeView ' noop is PlaySelectedFromTreeView defer RequestRecord ' noop is RequestRecord ! defer MenuChecks ! defer KeyHandler --- 25,33 ---- defer PLAYER ' noop is PLAYER defer RefreshCatalog ' noop is RefreshCatalog defer SortCatalog ' noop is SortCatalog defer PlaySelectedFromTreeView ' noop is PlaySelectedFromTreeView defer RequestRecord ' noop is RequestRecord ! defer MenuChecks ' noop is MenuChecks ! defer KeyHandler ' noop is KeyHandler *************** *** 342,369 **** \ ----------------------------------------------------------------------------- \ ----------------------------------------------------------------------------- ! :noname ( -- ) \ search the catalog catalog-exist? if player-base ask-max-random-level ! then ; is SetRandomLevel ! :noname ( -- ) \ sort catalog by random catalog-exist? if randomize-catalog RefreshCatalog ! then ; is RandomizeCatalog ! :noname ( -- ) \ search the catalog catalog-exist? if sort_by_RandomLevel RefreshCatalog ! then ; is SortRandom ! :noname ( -- ) \ search the catalog catalog-exist? if sort_by_leastPlayed RefreshCatalog ! then ; is SortLeastPlayed ! :noname ( -- ) \ search the catalog catalog-exist? if sort_by_size RefreshCatalog ! then ; is SortSize :noname ( -- ) \ sort catalog by file names --- 329,356 ---- \ ----------------------------------------------------------------------------- \ ----------------------------------------------------------------------------- ! : SetRandomLevel ( -- ) \ search the catalog catalog-exist? if player-base ask-max-random-level ! then ; ! : RandomizeCatalog ( -- ) \ sort catalog by random catalog-exist? if randomize-catalog RefreshCatalog ! then ; ! : SortRandom ( -- ) \ search the catalog catalog-exist? if sort_by_RandomLevel RefreshCatalog ! then ; ! : SortLeastPlayed ( -- ) \ search the catalog catalog-exist? if sort_by_leastPlayed RefreshCatalog ! then ; ! : SortSize ( -- ) \ search the catalog catalog-exist? if sort_by_size RefreshCatalog ! then ; :noname ( -- ) \ sort catalog by file names *************** *** 372,384 **** then ; is SortCatalog ! :noname ( -- ) \ search the catalog catalog-exist? ! if player-base search-records ! then ; is SearchCatalog ! ! \ :noname ( -- ) \ search the catalog ! \ catalog-exist? ! \ if player-base ask-max-random-level ! \ then ; is SetRandomLevel :noname ( -- ) --- 359,366 ---- then ; is SortCatalog ! : SearchCatalog ( -- ) \ search the catalog catalog-exist? ! if 0 to last-selected-rec player-base search-records ! then ; :noname ( -- ) *************** *** 387,425 **** then ; is RefreshCatalog ! :noname ( -- ) true to show-deleted Refresh: Catalog false to show-deleted ! ; is ShowDeleted : valid-record? ( - flag ) catalog-exist? last-selected-rec -1 <> and ; ! :noname ( -- ) valid-record? if last-selected-rec delete-record RefreshCatalog -1 to last-selected-rec ! then ; is DeleteItem ! :noname ( -- ) catalog-exist? if delete-collection RefreshCatalog -1 to last-selected-rec ! then ; is DeleteCollection ! :noname ( -- ) valid-record? if last-selected-rec undelete-record RefreshCatalog -1 to last-selected-rec ! then ; is Undelete ! :noname ( -- ) catalog-exist? if undelete-all RefreshCatalog -1 to last-selected-rec ! then ; is UndeleteAll ! :noname ( -- ) \ to update the checks ! Paint: Mainwindow ; is RefreshWindow \ ----------------------------------------------------------------------------- --- 369,407 ---- then ; is RefreshCatalog ! : ShowDeleted ( -- ) true to show-deleted Refresh: Catalog false to show-deleted ! ; : valid-record? ( - flag ) catalog-exist? last-selected-rec -1 <> and ; ! : DeleteItem ( -- ) valid-record? if last-selected-rec delete-record RefreshCatalog -1 to last-selected-rec ! then ; ! : DeleteCollection ( -- ) catalog-exist? if delete-collection RefreshCatalog -1 to last-selected-rec ! then ; ! : Undelete ( -- ) valid-record? if last-selected-rec undelete-record RefreshCatalog -1 to last-selected-rec ! then ; ! : UndeleteAll ( -- ) catalog-exist? if undelete-all RefreshCatalog -1 to last-selected-rec ! then ; ! : RefreshWindow ( -- ) \ to update the checks ! Paint: Mainwindow ; \ ----------------------------------------------------------------------------- *************** *** 520,524 **** :MENUITEM mHandelReq "Ignore requests" vadr-config IgnoreRequests dup invert-check c@ not ! if SortCatalog then ; --- 502,506 ---- :MENUITEM mHandelReq "Ignore requests" vadr-config IgnoreRequests dup invert-check c@ not ! if SortCatalog then ; *************** *** 617,621 **** WINPAUSE 10 MS Playing: Player4W - \ KeyHandler ; is PLAYER --- 599,602 ---- |
