--- a/Tools_NavigatorModel.st	Tue Sep 22 13:24:24 2009 +0200
+++ b/Tools_NavigatorModel.st	Tue Sep 22 13:24:44 2009 +0200
@@ -46,6 +46,19 @@
 
 !NavigatorModel class methodsFor:'defaults'!
 
+isPseudoCategory:cat
+    ^ cat = self nameListEntryForChanged
+    or:[ cat = self nameListEntryForUndocumented
+    or:[ cat = self nameListEntryForUnloaded
+    or:[ cat = self nameListEntryForALL ]]]
+!
+
+isPseudoProtocol:protocol
+    ^ protocol = self nameListEntryForObsolete
+    or:[ protocol = self nameListEntryForSuperSend
+    or:[ protocol = self nameListEntryForUncommented ]]
+!
+
 markForBeingInChangeList
     ^ ' *'
 
@@ -103,6 +116,22 @@
     ^ '* uncommented (%1) *'
 !
 
+nameListEntryForUndocumented
+    ^ '* undocumented *'
+!
+
+nameListEntryForUndocumentedWithCount
+    ^ '* undocumented (%1) *'
+!
+
+nameListEntryForUnloaded
+    ^ '* unloaded *'
+!
+
+nameListEntryForUnloadedWithCount
+    ^ '* unloaded (%1) *'
+!
+
 nameListEntryForVisited
     ^ '* visited (%1) *'
 ! !
@@ -188,7 +217,7 @@
 !NavigatorModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.9 2009-09-21 13:56:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.10 2009-09-22 11:24:44 cg Exp $'
 ! !
 
 NavigatorModel initialize!