[Win32forth-cvs] win32forth/apps/Player4 Mediatree.f,1.37,1.38

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

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv734/apps/Player4

Modified Files:
	Mediatree.f 
Log Message:
Jos:  Removed 'tvitem->tvins' and 'tvitem /tvitem erase' and the old tvitem 

Index: Mediatree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Mediatree.f,v
retrieving revision 1.37
retrieving revision 1.38
diff -C2 -d -r1.37 -r1.38
*** Mediatree.f	26 Sep 2008 12:00:27 -0000	1.37
--- Mediatree.f	3 Jun 2010 08:56:38 -0000	1.38
***************
*** 82,86 ****
               then
            InlineRecord +place InlineRecord +null
!           InlineRecord 1+ to pszText tvitem->tvins
            tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hInsertAfter
           then
--- 82,86 ----
               then
            InlineRecord +place InlineRecord +null
!           InlineRecord 1+ to pszText
            tvins 0 TVM_INSERTITEMA hWnd Call SendMessage to hInsertAfter
           then
***************
*** 93,97 ****
                  ( hParent)        to hParent
                  ( hAfter)         to hInsertAfter
!                                   to pszText tvitem->tvins
                  tvins 0 TVM_INSERTITEMA hWnd Call SendMessage
                  dup to hPrev
--- 93,97 ----
                  ( hParent)        to hParent
                  ( hAfter)         to hInsertAfter
!                                   to pszText
                  tvins 0 TVM_INSERTITEMA hWnd Call SendMessage
                  dup to hPrev
***************
*** 216,220 ****
                  0 to last-selected-rec
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  TVI_ROOT to hParent
                  [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_STATE or ] literal to mask
--- 216,219 ----