929 hasExtensions: (categoriesWithExtensions includes:cat) |
929 hasExtensions: (categoriesWithExtensions includes:cat) |
930 ]. |
930 ]. |
931 |
931 |
932 numUndocumented > 0 ifTrue:[ |
932 numUndocumented > 0 ifTrue:[ |
933 rawCategoryList add:self class nameListEntryForUndocumented. |
933 rawCategoryList add:self class nameListEntryForUndocumented. |
934 categories add:((self class nameListEntryForUndocumentedWithCount bindWith:numUndocumented) allItalic colorizeAllWith:pseudoEntryColor). |
934 categories add:((self class nameListEntryForUndocumentedWithCount bindWith:numUndocumented) allItalic withColor:pseudoEntryColor). |
935 ]. |
935 ]. |
936 numUnloaded > 0 ifTrue:[ |
936 numUnloaded > 0 ifTrue:[ |
937 rawCategoryList add:self class nameListEntryForUnloaded. |
937 rawCategoryList add:self class nameListEntryForUnloaded. |
938 categories add:((self class nameListEntryForUnloadedWithCount bindWith:numUnloaded) allItalic colorizeAllWith:pseudoEntryColor). |
938 categories add:((self class nameListEntryForUnloadedWithCount bindWith:numUnloaded) allItalic withColor:pseudoEntryColor). |
939 ]. |
939 ]. |
940 (classesWithExtensions size > 0) ifTrue:[ |
940 (classesWithExtensions size > 0) ifTrue:[ |
941 rawCategoryList add:self class nameListEntryForExtendedClasses. |
941 rawCategoryList add:self class nameListEntryForExtendedClasses. |
942 categories add:((self class nameListEntryForExtendedClassesWithCount bindWith:(classesWithExtensions size)) allItalic colorizeAllWith:pseudoEntryColor). |
942 categories add:((self class nameListEntryForExtendedClassesWithCount bindWith:(classesWithExtensions size)) allItalic withColor:pseudoEntryColor). |
943 ]. |
943 ]. |
944 numClassesInChangeSet > 0 ifTrue:[ |
944 numClassesInChangeSet > 0 ifTrue:[ |
945 rawCategoryList addFirst:self class nameListEntryForChanged. |
945 rawCategoryList addFirst:self class nameListEntryForChanged. |
946 categories addFirst:((self class nameListEntryForChangedWithCount bindWith:numClassesInChangeSet) allItalic colorizeAllWith:pseudoEntryColor). |
946 categories addFirst:((self class nameListEntryForChangedWithCount bindWith:numClassesInChangeSet) allItalic withColor:pseudoEntryColor). |
947 ]. |
947 ]. |
948 |
948 |
949 categories size > 0 ifTrue:[ |
949 categories size > 0 ifTrue:[ |
950 categories size == 1 ifTrue:[ |
950 categories size == 1 ifTrue:[ |
951 self classCategoryLabelHolder value:(categories first) |
951 self classCategoryLabelHolder value:(categories first) |
952 ]. |
952 ]. |
953 rawCategoryList addFirst:self class nameListEntryForALL. |
953 rawCategoryList addFirst:self class nameListEntryForALL. |
954 categories addFirst:((self class nameListEntryForALLWithCount bindWith:(classes size)) allItalic colorizeAllWith:pseudoEntryColor). |
954 categories addFirst:((self class nameListEntryForALLWithCount bindWith:(classes size)) allItalic withColor:pseudoEntryColor). |
955 ]. |
955 ]. |
956 |
956 |
957 cookedCategoryList := categories. |
957 cookedCategoryList := categories. |
958 ^ rawCategoryList. |
958 ^ rawCategoryList. |
959 |
959 |