--- a/Tools_InheritanceClassList.st	Wed Nov 07 15:21:22 2012 +0100
+++ b/Tools_InheritanceClassList.st	Wed Nov 07 15:35:53 2012 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 "{ NameSpace: Tools }"
@@ -62,35 +61,38 @@
 delayedUpdate:something with:aParameter from:changedObject
     |top oldSelection newSelection showMeta|
 
-    self inSlaveModeOrInvisible ifTrue:[^ self].
-"/    (self slaveMode value == true) ifTrue:[^ self].
+"/    self inSlaveModeOrInvisible ifTrue:[^ self].
+"/    self inSlaveMode ifTrue:[^ self].
 
     changedObject == slaveMode ifTrue:[
-	listValid ~~ true ifTrue:[
-	    self enqueueDelayedUpdateList
-	].
-	"/ self invalidateList.
-	^  self
+        self inSlaveMode ifTrue:[
+            self invalidateList.
+        ] ifFalse:[
+            listValid ifFalse:[
+                self updateList
+            ].
+        ].
+        ^  self
     ].
 
     changedObject == meta ifTrue:[
-	oldSelection := self selectedClasses value ? #().
-	showMeta := meta value.
+        oldSelection := self selectedClasses value ? #().
+        showMeta := meta value.
 
-	newSelection := oldSelection collect:[:cls | showMeta ifTrue:[cls theMetaclass] ifFalse:[cls theNonMetaclass]].
-	newSelection := newSelection asOrderedCollection.
+        newSelection := oldSelection collect:[:cls | showMeta ifTrue:[cls theMetaclass] ifFalse:[cls theNonMetaclass]].
+        newSelection := newSelection asOrderedCollection.
 
-	top := self topClassHolder value.
-	top notNil ifTrue:[
-	    top := showMeta ifTrue:[top theMetaclass] ifFalse:[top theNonMetaclass].
-	    self topClassHolder value:top.
-	].
-	self invalidateList.
+        top := self topClassHolder value.
+        top notNil ifTrue:[
+            top := showMeta ifTrue:[top theMetaclass] ifFalse:[top theNonMetaclass].
+            self topClassHolder value:top.
+        ].
+        self invalidateList.
 
-(newSelection includes:nil) ifTrue:[self halt:'should not happen'].
+        (newSelection includes:nil) ifTrue:[self halt:'should not happen'].
 
-	self selectedClasses value:newSelection.
-	^ self.
+        self selectedClasses value:newSelection.
+        ^ self.
     ].
     super delayedUpdate:something with:aParameter from:changedObject
 
@@ -188,5 +190,5 @@
 !InheritanceClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_InheritanceClassList.st,v 1.4 2006-03-28 15:27:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_InheritanceClassList.st,v 1.5 2012-11-07 14:35:53 cg Exp $'
 ! !