--- a/SelectionInTree.st	Fri Feb 13 14:54:42 1998 +0100
+++ b/SelectionInTree.st	Fri Feb 13 14:56:35 1998 +0100
@@ -228,6 +228,19 @@
     self selectionIndex:nil
 ! !
 
+!SelectionInTree methodsFor:'change & update'!
+
+invalidate
+    "called; something changed what requires a redraw but no recomputation.
+     for example a name
+    "
+    self dependents do:[:aDependent|
+        aDependent isView ifTrue:[ aDependent invalidate ]
+    ].
+
+
+! !
+
 !SelectionInTree methodsFor:'enumerating'!
 
 each:something do:aBlock
@@ -322,5 +335,5 @@
 !SelectionInTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.7 1997-10-29 08:25:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.8 1998-02-13 13:56:35 ca Exp $'
 ! !