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

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

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

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

Index: Mediatree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** Mediatree.f	20 Oct 2005 17:10:49 -0000	1.18
--- Mediatree.f	26 Oct 2005 15:20:21 -0000	1.19
***************
*** 3,7 ****
  needs number.f
  needs w_search.f
! needs shell_r.f
  needs catalog.f
  needs TreeView.F
--- 3,7 ----
  needs number.f
  needs w_search.f
! needs mshell_r.f
  needs catalog.f
  needs TreeView.F
***************
*** 156,160 ****
  :M Refresh:     ( -- )
          MciDebug?
!         if      cr timer-reset
          then
          wait-cursor
--- 156,160 ----
  :M Refresh:     ( -- )
          MciDebug?
!         if      cr ." Fill-time: " timer-reset
          then
          wait-cursor