[Win32forth-cvs] win32forth/apps/Player4 Catalog.f, 1.38, 1.39 Commands.f, 1.6, 1.7 PLAYER4.F, 1.61, 1.62 SearchPath.f, 1.1, 1.2

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

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 ----