--- a/HierarchicalListView.st	Wed Sep 22 11:35:19 1999 +0200
+++ b/HierarchicalListView.st	Wed Sep 22 12:08:52 1999 +0200
@@ -102,41 +102,6 @@
                                                                         [exEnd]
 
 
-    test: adding and removing
-                                                                        [exBegin]
-    |top sel list item el times|
-
-    times := 1000.
-    list  := HierarchicalList new.
-    item  := HierarchicalItem::Example labeled:'Root Item'.
-
-    item expand.
-    list showRoot:false.
-    list root:item.
-
-    top := StandardSystemView new; extent:300@300.
-    sel := ScrollableView for:HierarchicalListView miniScroller:true
-                       origin:0.0@0.0 corner:1.0@1.0 in:top.
-
-    sel list:list.
-    sel multipleSelectOk:true.
-
-    sel doubleClickAction:[:i| (list at:i) toggleExpand ].
-    sel   indicatorAction:[:i| (list at:i) toggleExpand ].
-
-    item := item children at:1.
-    item expand.
-    top open.
-    Delay waitForSeconds:1.
-    el := item children at:1.
-
-    times timesRepeat:[
-        item remove:el.
-        item addFirst:el.
-    ].
-    Transcript showCR:'runs: ', times printString.
-                                                                        [exEnd]
-
 "
 ! !
 
@@ -943,10 +908,17 @@
     "
     ^ (self xOfFigureLevel:aLevel) + imageWidth + textStartLeft
 
+!
+
+xVisibleOfItem:anItem
+    "returns the visible x of the labeled text
+    "
+    ^ self xOfStringLevel:(anItem level)
+
 ! !
 
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.10 1999-09-20 17:23:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.11 1999-09-22 10:08:33 cg Exp $'
 ! !