[Win32forth-cvs] win32forth/apps/Player4 Pl_MciWindow.f,1.4,1.5 Pl_Version.f,1.7,1.8

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

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

Modified Files:
	Pl_MciWindow.f Pl_Version.f 
Log Message:
Jos: Fixed 1 small irratating bug in add-to-catalog. Sometimes it is a miracle that a program is able to work.

Index: Pl_MciWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Pl_MciWindow.f	2 May 2005 20:47:57 -0000	1.4
--- Pl_MciWindow.f	4 May 2005 19:08:47 -0000	1.5
***************
*** 237,242 ****
  
  : add-to-catalog        ( -- ) \ Delete the *.dat files to start a new catalog
!         z" Folder(s) to catalog" 
!         config-mhndl map-hndl>vadr PathMediaFiles GetHandle: Self
          BrowseForFolder
          If   \   PathMediaFiles count
--- 237,242 ----
  
  : add-to-catalog        ( -- ) \ Delete the *.dat files to start a new catalog
!         z" Folder(s) to catalog"
!         config-mhndl map-hndl>vadr PathMediaFiles dup +null GetHandle: Self
          BrowseForFolder
          If   \   PathMediaFiles count

Index: Pl_Version.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_Version.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Pl_Version.f	3 May 2005 22:35:31 -0000	1.7
--- Pl_Version.f	4 May 2005 19:08:48 -0000	1.8
***************
*** 109,110 ****
--- 109,115 ----
          - Fixed 2 bugs. Now PathMediaFiles.dat must exist.
  
+ \ changes for Version 1.01.14
+ Jos     May 4th, 2005
+         - Fixed 1 bug in add-to-catalog.
+ 
+