[Win32forth-cvs] win32forth/apps/Win32ForthIDE ClassBrowser.f, 1.9, 1.10 CreateMenu.f, 1.2, 1.3 ProjectTree.f, 1.24, 1.25 ProjectWindow.f, 1.7, 1.8

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

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

Modified Files:
	ClassBrowser.f CreateMenu.f ProjectTree.f ProjectWindow.f 
Log Message:
Jos:  Removed 'tvitem->tvins' and 'tvitem /tvitem erase' and the old tvitem 

Index: ProjectWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectWindow.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** ProjectWindow.f	1 Feb 2010 01:43:50 -0000	1.7
--- ProjectWindow.f	3 Jun 2010 08:56:38 -0000	1.8
***************
*** 260,264 ****
  : AddChildItem  ( -- )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  0                           to cChildren
                  Handle: ThisList            to hParent
--- 260,263 ----
***************
*** 269,273 ****
                  ThisItem                    to lparam
                  [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] literal to mask
-                 tvitem->tvins
                  InsertItem: Self IsHandle: ThisItem ;
  
--- 268,271 ----
***************
*** 331,335 ****
  : AddParentItem ( lparam hAfter hParent nChildren -- hwnd )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  ( nChildren)      to cChildren
                  ( hParent)        to hParent
--- 329,332 ----
***************
*** 341,345 ****
  [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_STATE or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] LITERAL to mask
  		TVIS_BOLD dup to state to statemask
-                 tvitem->tvins
                  InsertItem: Self ;
  
--- 338,341 ----
***************
*** 356,364 ****
  : HaveChildren  ( -- )	\ show the "+" next to item
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  1 to cChildren
                  Handle: CurrentChild to hitem
                  TVIF_CHILDREN  to mask
-                 tvitem->tvins
                  SetItem: Self ;
  
--- 352,358 ----
***************
*** 366,370 ****
                  HaveChildren
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  0                           to cChildren
                  Handle: CurrentChild        to hParent
--- 360,363 ----
***************
*** 375,379 ****
                  ThisGrandChild              to lparam
   [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] LITERAL to mask
-                 tvitem->tvins
                  InsertItem: Self IsHandle: ThisGrandChild
                  Incr: CurrentChild 	\ bump child count
--- 368,371 ----

Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ClassBrowser.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** ClassBrowser.f	2 Jun 2010 20:53:11 -0000	1.9
--- ClassBrowser.f	3 Jun 2010 08:56:38 -0000	1.10
***************
*** 59,63 ****
                  r> if TVIF_CHILDREN or then
                  to mask
-                 tvitem->tvins
                  tvins 0 TVM_INSERTITEMA hWnd Call SendMessage
                  to hPrev ;
--- 59,62 ----

Index: ProjectTree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** ProjectTree.f	10 May 2009 03:54:17 -0000	1.24
--- ProjectTree.f	3 Jun 2010 08:56:38 -0000	1.25
***************
*** 260,264 ****
  : AddChildItem  ( -- )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  0                           to cChildren
                  Handle: ThisList            to hParent
--- 260,263 ----
***************
*** 275,279 ****
  
                  [ TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE or ] literal to mask
-                 tvitem->tvins
                  InsertItem: self
                  IsHandle: ThisItem ;
--- 274,277 ----
***************
*** 331,335 ****
  : AddParentItem ( lparam hAfter hParent nChildren -- hwnd )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  ( nChildren)      to cChildren
                  ( hParent)        to hParent
--- 329,332 ----
***************
*** 342,346 ****
                  TVIF_TEXT TVIF_CHILDREN or TVIF_PARAM or
                  TVIF_IMAGE or TVIF_SELECTEDIMAGE or to mask
-                 tvitem->tvins
                  InsertItem: self ;
  
--- 339,342 ----

Index: CreateMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/CreateMenu.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** CreateMenu.f	3 Aug 2008 10:56:41 -0000	1.2
--- CreateMenu.f	3 Jun 2010 08:56:38 -0000	1.3
***************
*** 165,169 ****
          then    setname: ThisItem
          tvins  /tvins  erase
-         tvitem /tvitem erase
          1                   to cChildren
          TVI_ROOT            to hParent
--- 165,168 ----
***************
*** 174,178 ****
                              to mask
          TVIS_BOLD dup to state to statemask \ embolden menubar name
-         tvitem->tvins
          tvins 0 TVM_INSERTITEMA SendMessage:self dup
          ishandle: ThisItem to hwndmain
--- 173,176 ----
***************
*** 181,185 ****
  : AddTreeItem   ( -- )
                  tvins  /tvins  erase
-                 tvitem /tvitem erase
                  ParentWindow: ThisItem      to hParent
                  TVI_LAST                    to hInsertAfter
--- 179,182 ----
***************
*** 193,197 ****
                                              to statemask
                  then                        to mask
-                 tvitem->tvins
                  tvins 0 TVM_INSERTITEMA SendMessage:self IsHandle: ThisItem ;
  
--- 190,193 ----