Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25294/apps/Player4
Modified Files:
Catalog.f Mediatree.f PLAYER4.F
Log Message:
Jos: Made it possible to set all requests to the same level. And removed a bug from the right click in the catalog.
Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** PLAYER4.F 12 Mar 2006 17:00:39 -0000 1.41
--- PLAYER4.F 5 Apr 2006 16:26:47 -0000 1.42
***************
*** 74,78 ****
MENUSEPARATOR
SUBMENU "S&ort and view"
! MENUITEM "Define a view" StartViewForm ;
MENUSEPARATOR
MENUITEM "Se&t maximum random level" SetRandomLevel ;
--- 74,79 ----
MENUSEPARATOR
SUBMENU "S&ort and view"
! MENUITEM "Define a view and sort" StartViewForm ;
! MENUITEM "&Sort" SortCatalog ;
MENUSEPARATOR
MENUITEM "Se&t maximum random level" SetRandomLevel ;
***************
*** 86,89 ****
--- 87,91 ----
MENUITEM "&Enable all kept requests" EnableKeptRequests ;
MENUITEM "Se&t request level" player-base SetRequestLevel ;
+ MENUITEM "Set a&ll requests to the same level" Level-requests SortCatalog ;
ENDSUBMENU
MENUSEPARATOR
Index: Mediatree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** Mediatree.f 19 Mar 2006 21:41:37 -0000 1.27
--- Mediatree.f 5 Apr 2006 16:26:47 -0000 1.28
***************
*** 233,237 ****
:M On_RightClick: ( -- )
! StartPopupWindow
;M
--- 233,237 ----
:M On_RightClick: ( -- )
! On_SelChanged: self
;M
Index: Catalog.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Catalog.f 19 Mar 2006 21:41:37 -0000 1.28
--- Catalog.f 5 Apr 2006 16:26:47 -0000 1.29
***************
*** 363,374 ****
r@ RecordDef Excluded- c@ .
r@ RecordDef FileSize @ 12 U,.R
! r@ RecordDef Request- w@ ." Req " .
then
r>drop
;
! : list-record ( n - ) n>record _list-record ;
! : list-records ( - ) for-all-records list-record cr ;
! : list-database ( - ) map-database list-records unmap-database ;
K_TAB variable separator separator c!
--- 363,391 ----
r@ RecordDef Excluded- c@ .
r@ RecordDef FileSize @ 12 U,.R
! r@ RecordDef RequestLevelRecord c@ ." Req " .
then
r>drop
;
! : request? ( n - f ) n>record RecordDef Request- c@ 0<> ;
!
! : List-request ( n - ) dup request?
! if n>record _list-record
! else drop
! then
! ;
!
! : List-requests ( - ) for-all-records List-request cr ;
! : list-record ( n - ) n>record _list-record ;
! : list-records ( - ) for-all-records list-record cr ;
! : list-database ( - ) map-database list-records unmap-database ;
!
! : Level-request ( n - ) dup request?
! if n>record 1 swap RequestLevelRecord c!
! else drop
! then
! ;
!
! : Level-requests ( - ) for-all-records Level-request ;
K_TAB variable separator separator c!
***************
*** 391,394 ****
--- 408,412 ----
r@ RecordDef #played @ .csv type-separator
r@ RecordDef FileSize @ .csv +inlineRecord
+ r@ RecordDef RequestLevelRecord c@ .csv +inlineRecord
InlineRecord count fwrite
else drop
|
