[Win32forth-cvs] win32forth/apps/Player4 Mediatree.f,1.19,1.20

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

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

Modified Files:
	Mediatree.f 
Log Message:
Jos: adapted for the new improoved shellsort.

Index: Mediatree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Mediatree.f	26 Oct 2005 15:20:21 -0000	1.19
--- Mediatree.f	26 Oct 2005 15:26:54 -0000	1.20
***************
*** 120,124 ****
          0 0 -1 hDrop  Call DragQueryFile  ?dup
             if  datfile$ count file-exist? check-config
!                MAXCOUNTED drop$ 0 hDrop Call DragQueryFile
                 drop$ swap GetLabel
                 OpenAppendDatabase to wHndl
--- 120,124 ----
          0 0 -1 hDrop  Call DragQueryFile  ?dup
             if  datfile$ count file-exist? check-config
!                MAXCOUNTED drop$ 0 hDrop Call DragQueryFile 
                 drop$ swap GetLabel
                 OpenAppendDatabase to wHndl
***************
*** 194,196 ****
  \s
  
!