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
|
