[Win32forth-cvs] win32forth/apps/Win32ForthIDE ClassBrowser.f, 1.10, 1.11

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

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

Modified Files:
	ClassBrowser.f 
Log Message:
Jos: Minor optimalization for the big treeviews

Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ClassBrowser.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** ClassBrowser.f	3 Jun 2010 08:56:38 -0000	1.10
--- ClassBrowser.f	26 Jun 2010 16:27:41 -0000	1.11
***************
*** 49,53 ****
  
  : AddItem       ( xt sztext hAfter hParent nChildren fChildren -- ) \ add an entry to the treeview
-                 tvins  /tvins  erase
                  >r
                  ( nChildren)      to cChildren
--- 49,52 ----
***************
*** 157,161 ****
  : AddVocabularies ( -- )          \ add the vocabularies to the treeview
                  false SetRedraw: self
! 
                  -1 z" Vocabularies" TVI_LAST TVI_ROOT 1 true AddItem
  
--- 156,160 ----
  : AddVocabularies ( -- )          \ add the vocabularies to the treeview
                  false SetRedraw: self
!                 tvins  /tvins  erase
                  -1 z" Vocabularies" TVI_LAST TVI_ROOT 1 true AddItem
  
***************
*** 213,217 ****
  : AddClasses    (  -- )           \ add the classes to the treeview
                  false SetRedraw: self
! 
                  -1 z" Classes" TVI_LAST TVI_ROOT 1 true AddItem
                  hPrev >R
--- 212,216 ----
  : AddClasses    (  -- )           \ add the classes to the treeview
                  false SetRedraw: self
!                 tvins  /tvins  erase
                  -1 z" Classes" TVI_LAST TVI_ROOT 1 true AddItem
                  hPrev >R