759 item := item , ((' (%1)' bindWith:(categoriesBag occurrencesOf:cat)) |
759 item := item , ((' (%1)' bindWith:(categoriesBag occurrencesOf:cat)) |
760 colorizeAllWith:pseudoEntryColor). |
760 colorizeAllWith:pseudoEntryColor). |
761 item |
761 item |
762 ]. |
762 ]. |
763 |
763 |
|
764 numUndocumented > 0 ifTrue:[ |
|
765 rawCategoryList add:self class nameListEntryForUndocumented. |
|
766 categories add:((self class nameListEntryForUndocumentedWithCount bindWith:numUndocumented) allItalic colorizeAllWith:pseudoEntryColor). |
|
767 ]. |
764 numUnloaded > 0 ifTrue:[ |
768 numUnloaded > 0 ifTrue:[ |
765 rawCategoryList addFirst:self class nameListEntryForUnloaded. |
769 rawCategoryList add:self class nameListEntryForUnloaded. |
766 categories addFirst:((self class nameListEntryForUnloadedWithCount bindWith:numUnloaded) allItalic colorizeAllWith:pseudoEntryColor). |
770 categories add:((self class nameListEntryForUnloadedWithCount bindWith:numUnloaded) allItalic colorizeAllWith:pseudoEntryColor). |
767 ]. |
|
768 numUndocumented > 0 ifTrue:[ |
|
769 rawCategoryList addFirst:self class nameListEntryForUndocumented. |
|
770 categories addFirst:((self class nameListEntryForUndocumentedWithCount bindWith:numUndocumented) allItalic colorizeAllWith:pseudoEntryColor). |
|
771 ]. |
771 ]. |
772 numClassesInChangeSet := ChangeSet current changedClasses size. |
772 numClassesInChangeSet := ChangeSet current changedClasses size. |
773 numClassesInChangeSet > 0 ifTrue:[ |
773 numClassesInChangeSet > 0 ifTrue:[ |
774 rawCategoryList addFirst:self class nameListEntryForChanged. |
774 rawCategoryList addFirst:self class nameListEntryForChanged. |
775 categories addFirst:((self class nameListEntryForChangedWithCount bindWith:numClassesInChangeSet) allItalic colorizeAllWith:pseudoEntryColor). |
775 categories addFirst:((self class nameListEntryForChangedWithCount bindWith:numClassesInChangeSet) allItalic colorizeAllWith:pseudoEntryColor). |