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