Tools__ClassCategoryList.st
changeset 16493 441d1df09f8a
parent 16366 943f8dfaa647
child 16571 cf319f2e56d0
child 17407 8da9fd29c3bb
equal deleted inserted replaced
16492:0ddfa2fae0fd 16493:441d1df09f8a
   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 
  1178                  item := cat
  1178                  item := cat
  1179             ]
  1179             ]
  1180         ]
  1180         ]
  1181     ].
  1181     ].
  1182     showCounts ifTrue:[
  1182     showCounts ifTrue:[
  1183         item := item , ((' (%1)' bindWith:numClasses) 
  1183         item := item , 
  1184                             colorizeAllWith:pseudoEntryColor).
  1184                     ((' (%1)' bindWith:numClasses) 
       
  1185                             withColor:pseudoEntryColor).
  1185     ].
  1186     ].
  1186     isInLocalChangeSet ifTrue:[
  1187     isInLocalChangeSet ifTrue:[
  1187         item := item , self class markForBeingInChangeList
  1188         item := item , self class markForBeingInChangeList
  1188     ].
  1189     ].
  1189 
  1190