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