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
|
