--- a/Tools_MethodCategoryList.st	Mon Oct 12 17:58:02 2009 +0200
+++ b/Tools_MethodCategoryList.st	Mon Oct 12 18:06:21 2009 +0200
@@ -1001,6 +1001,15 @@
     ^ self classesToProcessForClasses:classes withVisibility:methodVisibilityHolder value.
 !
 
+commonPostOpen
+    super commonPostOpen.
+
+    self showPseudoProtocols ifTrue:[
+        "/ revalidate my list, because it was only shown lazy
+        self invalidateList.
+    ].
+!
+
 flushMethodInfoForClassNamed:className selector:selector
     MethodInfoCacheAccessLock critical:[
         MethodInfoCache 
@@ -1017,11 +1026,14 @@
      packageFilterOnInput packageFilter nameListEntryForALL changeSet 
      emphasizedPlus emphasisForRef emphasisForMod
      numObsolete numSuper numUncommented numDocumentation numLong numOverride
-     numExtension|
+     numExtension showPseudoProtocols|
 
     generator := inGeneratorHolder value.
     generator isNil ifTrue:[ ^ #() ].
 
+    showPseudoProtocols := self showPseudoProtocols 
+                           and:[ builder window shown ].
+
     nameListEntryForALL := self class nameListEntryForALL.
 
     packageFilterOnInput := self packageFilterOnInput value.
@@ -1089,7 +1101,7 @@
                                                 ]
                                             ]
                                         ].     
-                                        self showPseudoProtocols value ifTrue:[
+                                        showPseudoProtocols value ifTrue:[
                                             cls selectorsAndMethodsDo:[:sel :mthd |
                                                 |info|
 
@@ -1238,7 +1250,7 @@
             categoryList addFirst:(nameListEntryForALL asText allItalic).
             rawProtocolList addFirst:nameListEntryForALL.
         ].
-        self showPseudoProtocols value ifTrue:[
+        showPseudoProtocols value ifTrue:[
             numSuper > 0 ifTrue:[
                 categoryList add:((self class nameListEntryForSuperSend bindWith:numSuper) asText allItalic).
                 rawProtocolList add:self class nameListEntryForSuperSend.
@@ -1566,11 +1578,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.35 2009-10-10 06:02:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.36 2009-10-12 16:06:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.35 2009-10-10 06:02:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.36 2009-10-12 16:06:21 cg Exp $'
 ! !
 
 MethodCategoryList initialize!