Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16823/apps/Player4
Modified Files:
Catalog.f Commands.f PLAYER4.F SearchPath.f
Log Message:
Jos: Depreciated the old path-ptr and replaced path-ptr by search-path
Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.61
retrieving revision 1.62
diff -C2 -d -r1.61 -r1.62
*** PLAYER4.F 8 Jul 2006 19:58:52 -0000 1.61
--- PLAYER4.F 26 Aug 2006 15:25:31 -0000 1.62
***************
*** 363,367 ****
: HandleCmdLine { \ bPlayFolder bPlayList -- } \ simple command-line handling
! UseForthPath CMDLINE ?dup
if false to bPlayFolder
false to bPlayList
--- 363,367 ----
: HandleCmdLine { \ bPlayFolder bPlayList -- } \ simple command-line handling
! CMDLINE ?dup
if false to bPlayFolder
false to bPlayList
***************
*** 525,530 ****
MENUSEPARATOR
SUBMENU "S&ort and view"
! MENUITEM "Define a view and sort" UseCatalogPath StartViewForm ;
! MENUITEM "&Sort / Refresh" UseCatalogPath SortCatalog ;
MENUSEPARATOR
MENUITEM "Se&t maximum random level" SetRandomLevel ;
--- 525,530 ----
MENUSEPARATOR
SUBMENU "S&ort and view"
! MENUITEM "Define a view and sort" StartViewForm ;
! MENUITEM "&Sort / Refresh" SortCatalog ;
MENUSEPARATOR
MENUITEM "Se&t maximum random level" SetRandomLevel ;
Index: Catalog.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** Catalog.f 19 Jul 2006 15:25:26 -0000 1.38
--- Catalog.f 26 Aug 2006 15:25:30 -0000 1.39
***************
*** 235,243 ****
: SeparatorX ( - adr ) vadr-config _SeparatorX ;
- \ : UseCatalogPath ( - ) vadr-config SearchPath to path-ptr ;
- \ : UseForthPath ( - ) &fpath to path-ptr ;
- : UseCatalogPath ( - ) ;
- : UseForthPath ( - ) ;
-
: check-config ( flag -- ) \ creates one with the right size
not
--- 235,238 ----
***************
*** 649,653 ****
database$ count file-exist? and
DataBaseFilled? and dup
! if UseCatalogPath index$ count file-exist? not
if _generate-index-file
then
--- 644,648 ----
database$ count file-exist? and
DataBaseFilled? and dup
! if index$ count file-exist? not
if _generate-index-file
then
Index: Commands.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Commands.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Commands.f 19 Jul 2006 15:25:26 -0000 1.6
--- Commands.f 26 Aug 2006 15:25:31 -0000 1.7
***************
*** 26,36 ****
: PlayFile ( -- )
! UseForthPath OpenFile: Player4W ; IDM_OPEN_FILE SetCommand
: OpenFolder ( -- )
! UseForthPath OpenFolder: Player4W ; IDM_OPEN_FOLDER SetCommand
: OpenPlayList ( -- )
! UseForthPath OpenPlayList: Player4W ; IDM_OPEN_PLAYLIST SetCommand
: QuitPlayer ( -- )
--- 26,36 ----
: PlayFile ( -- )
! OpenFile: Player4W ; IDM_OPEN_FILE SetCommand
: OpenFolder ( -- )
! OpenFolder: Player4W ; IDM_OPEN_FOLDER SetCommand
: OpenPlayList ( -- )
! OpenPlayList: Player4W ; IDM_OPEN_PLAYLIST SetCommand
: QuitPlayer ( -- )
***************
*** 45,49 ****
: AddFiles ( -- )
! UseCatalogPath AddFilesFromSelector: Player4W ; IDM_ADD_FILES SetCommand
: ImportFolder ( -- )
--- 45,49 ----
: AddFiles ( -- )
! AddFilesFromSelector: Player4W ; IDM_ADD_FILES SetCommand
: ImportFolder ( -- )
Index: SearchPath.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/SearchPath.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** SearchPath.f 10 Jul 2006 18:31:20 -0000 1.1
--- SearchPath.f 26 Aug 2006 15:25:31 -0000 1.2
***************
*** 176,180 ****
GetText: tb6 AddToPath
GetText: tb7 AddToPath
- \ path-ptr dup c@ 1- swap c! path-ptr +NULL
Close: Self
;
--- 176,179 ----
|
