[Win32forth-cvs] win32forth/Help HelpTestTV.f, 1.1, 1.2 HelpWindow.f, 1.7, 1.8

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

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

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

Index: HelpTestTV.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/HelpTestTV.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** HelpTestTV.f	15 May 2008 05:38:38 -0000	1.1
--- HelpTestTV.f	3 Jun 2010 08:56:37 -0000	1.2
***************
*** 60,64 ****
  : AddItem       ( sztext hAfter hParent nChildren fChildren -- ) \ add an entry to the treeview
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  >r
                  ( nChildren)      to cChildren
--- 60,63 ----
***************
*** 69,73 ****
                  r> if TVIF_CHILDREN or then
                  to mask
-                 tvitem->tvins
                  tvins 0 TVM_INSERTITEMA hWnd Call SendMessage
                  to hPrev ;
--- 68,71 ----
***************
*** 75,84 ****
  : /Children     ( hitem -- )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                      to hitem
                  0   to cChildren
                  [ TVIF_HANDLE TVIF_CHILDREN or ] literal
                  to mask
-                 tvitem->tvins
                  SetItem: self ;
  
--- 73,80 ----

Index: HelpWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/Help/HelpWindow.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** HelpWindow.f	6 Sep 2008 22:00:25 -0000	1.7
--- HelpWindow.f	3 Jun 2010 08:56:37 -0000	1.8
***************
*** 266,270 ****
                  \ add an entry to the treeview
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  >r
                  ( nChildren)      to cChildren
--- 266,269 ----
***************
*** 276,280 ****
                  r> if TVIF_CHILDREN or then
                  to mask
-                 tvitem->tvins
                  tvins 0 TVM_INSERTITEMA hWnd Call SendMessage
                  to hPrev ;
--- 275,278 ----
***************
*** 282,291 ****
  : /Children     ( hitem -- )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                      to hitem
                  0   to cChildren
                  [ TVIF_HANDLE TVIF_CHILDREN or ] literal
                  to mask
-                 tvitem->tvins
                  SetItem: self ;
  
--- 280,287 ----
***************
*** 505,509 ****
                  \ add an entry to the treeview
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  >r
                  ( nChildren)      to cChildren
--- 501,504 ----
***************
*** 517,521 ****
                  r> if TVIF_CHILDREN or then
                  to mask
-                 tvitem->tvins
                  tvins 0 TVM_INSERTITEMA hWnd Call SendMessage
                  to hPrev ;
--- 512,515 ----
***************
*** 523,532 ****
  : /Children     ( hitem -- )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                      to hitem
                  0   to cChildren
                  [ TVIF_HANDLE TVIF_CHILDREN or ] literal
                  to mask
-                 tvitem->tvins
                  SetItem: self ;
  
--- 517,524 ----
***************
*** 604,613 ****
  :M SetImage:    ( hitem iImage -- )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  dup to iImage
                      to iSelectedImage
                      to hitem
                  [ TVIF_HANDLE TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] literal to mask
-                 tvitem->tvins
                  SetItem: self ;M
  
--- 596,603 ----