[Win32forth-cvs] win32forth/src/lib FileLister.f, 1.10, 1.11 treeview.f, 1.15, 1.16

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

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

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

Index: treeview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** treeview.f	2 Jun 2010 20:25:31 -0000	1.15
--- treeview.f	3 Jun 2010 08:56:38 -0000	1.16
***************
*** 100,121 ****
      ;RecordSize: /nmhdr
  
-  ((    Record:    tvitem \ Has been moved to tvins to avoid
-         int     mask     \ a MOVE for each item that has been inserted.
-         int     hItem
-         int     state
-         int     stateMask
-         int     pszText
-         int     cchTextMax
-         int     iImage
-         int     iSelectedImage
-         int     cChildren
-         int     lParam
-     ;RecordSize: /tvitem ))
- 
       Record:    tvins
          int     hParent
          int     hInsertAfter
! \   TV_ITEM     item
! \ /tvitem bytes   item
          int     mask
          int     hItem
--- 100,107 ----
      ;RecordSize: /nmhdr
  
       Record:    tvins
          int     hParent
          int     hInsertAfter
! \ tvitem starts here
          int     mask
          int     hItem
***************
*** 370,374 ****
  : AddItem       ( sztext hAfter hParent nChildren -- )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  ( nChildren)      to cChildren
                  ( hParent)        to hParent
--- 356,359 ----
***************
*** 377,381 ****
                  TVIF_TEXT TVIF_CHILDREN or
                  to mask
-                \ tvitem->tvins
                  tvins 0 TVM_INSERTITEMA hWnd Call SendMessage
                  to hPrev
--- 362,365 ----

Index: FileLister.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/FileLister.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** FileLister.f	7 Feb 2010 07:31:12 -0000	1.10
--- FileLister.f	3 Jun 2010 08:56:38 -0000	1.11
***************
*** 410,414 ****
  : AddTreeItem   ( -- )  \ add file or directory to tree
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  ?HasFiles                       to cChildren
                  Handle: FolderList              to hParent
--- 410,413 ----
***************
*** 421,425 ****
                  [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] LITERAL
                                                  to mask
-                 tvitem->tvins
                  tvins 0 TVM_INSERTITEMA hWnd Call SendMessage IsHandle: ThisItem
                   ;
--- 420,423 ----
***************
*** 460,464 ****
  : AddRoot   ( -- )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  1               to cChildren      \ assuming we have
                  TVI_ROOT        to hParent
--- 458,461 ----
***************
*** 470,474 ****
       [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] LITERAL
                                  to mask
-                 tvitem->tvins
                  tvins 0 TVM_INSERTITEMA hWnd Call SendMessage dup
                  ishandle: FolderList to hwndmain ;
--- 467,470 ----