--- a/HierarchicalListView.st	Thu Sep 19 15:39:48 2002 +0200
+++ b/HierarchicalListView.st	Fri Sep 20 16:44:49 2002 +0200
@@ -520,6 +520,32 @@
     ].
 !
 
+listChangedRemove:aStart toIndex:aStop
+    "test whether last items are deleted;
+     than we have to redraw lines because of different levels
+    "
+    |listSize index y0 lowestLevel|
+
+    listSize := list size.
+
+    (     shown
+     and:[showLines
+     and:[listSize ~~ 0
+     and:[aStart > listSize]]]
+    ) ifTrue:[
+        showRoot ifFalse:[ lowestLevel := 3 ]
+                  ifTrue:[ lowestLevel := 2 ].
+
+        index := list findLast:[:el| el level == lowestLevel ].
+
+        (index ~~ 0 and:[index < listSize]) ifTrue:[
+            y0 := (self yVisibleOfLine:index) max:margin.
+            self invalidateX:0 y:y0 width:width height:(height - margin - y0).
+        ]
+    ].
+    ^ super listChangedRemove:aStart toIndex:aStop
+!
+
 update:what with:aPara from:chgObj
     "get the status of <showRoot> from the list
     "
@@ -1222,5 +1248,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.45 2002-09-19 09:17:30 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.46 2002-09-20 14:44:49 ca Exp $'
 ! !