Tools_ClassCategoryList.st
changeset 12487 f36cda6765a9
parent 12465 aed594275d40
child 12520 b00df8bffe99
equal deleted inserted replaced
12486:0a82f2fcb6b3 12487:f36cda6765a9
   632 
   632 
   633 listOfCategories
   633 listOfCategories
   634     |categories categoriesBag hideUnloadedClasses generator nameSpaceFilter packageFilter allName
   634     |categories categoriesBag hideUnloadedClasses generator nameSpaceFilter packageFilter allName
   635      categoriesWithExtensions categoriesWithChangedCode categoriesWithRemoteChangedCode
   635      categoriesWithExtensions categoriesWithChangedCode categoriesWithRemoteChangedCode
   636      classesInChangeSet classesInRemoteChangeSet classesWithExtensions
   636      classesInChangeSet classesInRemoteChangeSet classesWithExtensions
   637      numClassesInChangeSet numClasses numUnloaded numUndocumented numExtendedClasses pseudoEntryColor|
   637      numClassesInChangeSet numClasses numUnloaded numUndocumented numExtendedClasses 
       
   638      pseudoEntryColor showCounts|
       
   639 
       
   640     showCounts := true.
   638 
   641 
   639     allName := self class nameListEntryForALL.
   642     allName := self class nameListEntryForALL.
   640 
   643 
   641     hideUnloadedClasses := self hideUnloadedClasses value.
   644     hideUnloadedClasses := self hideUnloadedClasses value.
   642     nameSpaceFilter := self nameSpaceFilter value.
   645     nameSpaceFilter := self nameSpaceFilter value.
   765                     ] ifFalse:[
   768                     ] ifFalse:[
   766                          item := cat
   769                          item := cat
   767                     ]
   770                     ]
   768                 ]
   771                 ]
   769             ].
   772             ].
   770             item := item , ((' (%1)' bindWith:(categoriesBag occurrencesOf:cat)) 
   773             showCounts ifTrue:[
   771                                 colorizeAllWith:pseudoEntryColor).
   774                 item := item , ((' (%1)' bindWith:(categoriesBag occurrencesOf:cat)) 
       
   775                                     colorizeAllWith:pseudoEntryColor).
       
   776             ].
   772             isInChangeSet ifTrue:[
   777             isInChangeSet ifTrue:[
   773                 item := item , self class markForBeingInChangeList
   778                 item := item , self class markForBeingInChangeList
   774             ].
   779             ].
   775 
   780 
   776             item        
   781             item        
   969 ! !
   974 ! !
   970 
   975 
   971 !ClassCategoryList class methodsFor:'documentation'!
   976 !ClassCategoryList class methodsFor:'documentation'!
   972 
   977 
   973 version
   978 version
   974     ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.41 2013-03-13 22:36:14 cg Exp $'
   979     ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.42 2013-03-20 10:37:35 cg Exp $'
   975 !
   980 !
   976 
   981 
   977 version_CVS
   982 version_CVS
   978     ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.41 2013-03-13 22:36:14 cg Exp $'
   983     ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.42 2013-03-20 10:37:35 cg Exp $'
   979 ! !
   984 ! !
   980 
   985