[Win32forth-cvs] win32forth/apps/Player4 Mediatree.f,1.24,1.25 PLAYER4.F,1.39,1.40

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

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27181/apps/Player4

Modified Files:
	Mediatree.f PLAYER4.F 
Log Message:
Jos: Minor improvements in the treeview.

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** PLAYER4.F	8 Mar 2006 21:42:56 -0000	1.39
--- PLAYER4.F	10 Mar 2006 22:11:23 -0000	1.40
***************
*** 261,265 ****
                          if   cr ." REBUILD "
                          then
!                       generate-index-file build-free-list SortByFlags 
                  then
               true vadr-config ExitFailed- c!
--- 261,265 ----
                          if   cr ." REBUILD "
                          then
!                       generate-index-file build-free-list
                  then
               true vadr-config ExitFailed- c!
***************
*** 270,274 ****
          else  map-config-file
          then
! 
          1 Setid: Catalog
          self Start: Catalog
--- 270,274 ----
          else  map-config-file
          then
!         SortByFlags
          1 Setid: Catalog
          self Start: Catalog

Index: Mediatree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Mediatree.f	8 Mar 2006 21:42:56 -0000	1.24
--- Mediatree.f	10 Mar 2006 22:11:23 -0000	1.25
***************
*** 139,143 ****
              then
               1 AddItemHierarical PrevRecAdr hArtist !
!        else    drop  false to OtherArtist?
         then
   ;
--- 139,143 ----
              then
               1 AddItemHierarical PrevRecAdr hArtist !
!        else  drop  false to OtherArtist?
         then
   ;
***************
*** 160,164 ****
  
  : AddRecordHierarical ( n - )
!    dup NotIncollection?
       if     drop
       else   ( 1306 +) >r ResetInlineRecord
--- 160,164 ----
  
  : AddRecordHierarical ( n - )
!    dup NotIncollection? over n>record Request- c@ not and
       if     drop
       else   ( 1306 +) >r ResetInlineRecord
***************
*** 204,209 ****
                  ;M
  
! : StartPopupWindow
!         last-selected-rec n>record CountedFilename music?
            if   hWnd dup get-mouse-xy
                 GetPositionCatalog
--- 204,209 ----
                  ;M
  
! : StartPopupWindow ( -- )
!         last-selected-rec n>record CountedFilename IsValidFileType?
            if   hWnd dup get-mouse-xy
                 GetPositionCatalog
***************
*** 213,217 ****
            ;
  
! :M On_SelChanged: ( -  )
                  TVIF_PARAM
                  TVIF_HANDLE or  to mask
--- 213,217 ----
            ;
  
! :M On_SelChanged: ( -- )
                  TVIF_PARAM
                  TVIF_HANDLE or  to mask
***************
*** 226,230 ****
                  ;M
  
! :M On_RightClick:
                  StartPopupWindow
                  ;M
--- 226,230 ----
                  ;M
  
! :M On_RightClick: ( -- )
                  StartPopupWindow
                  ;M