[Win32forth-cvs] win32forth/apps/Player4 Catalog.f,1.28,1.29 Mediatree.f,1.27,1.28 PLAYER4.F,1.41,1.42

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

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