equal
deleted
inserted
replaced
766 without a need for another classHolder/protocolHolder in the methodList)." |
766 without a need for another classHolder/protocolHolder in the methodList)." |
767 |
767 |
768 ^ Iterator |
768 ^ Iterator |
769 on:[:whatToDo | |
769 on:[:whatToDo | |
770 |protocols |
770 |protocols |
771 allProtocols superSendProtocols uncommentedProtocols |
771 allProtocols superSendProtocols uncommentedProtocols obsoleteProtocols |
772 noCat static notStatic classSelectorPairsAlreadyDone |
772 noCat static notStatic classSelectorPairsAlreadyDone |
773 packages remainingClasses remainingCategories classesAlreadyDone noPackage| |
773 packages remainingClasses remainingCategories classesAlreadyDone noPackage| |
774 |
774 |
775 noPackage := Project noProjectID. |
775 noPackage := Project noProjectID. |
776 noCat := (self class nameListEntryForNILCategory). |
776 noCat := (self class nameListEntryForNILCategory). |
784 |
784 |
785 (leafClasses size > 0 and:[protocols size > 0]) ifTrue:[ |
785 (leafClasses size > 0 and:[protocols size > 0]) ifTrue:[ |
786 allProtocols := protocols includes:(self class nameListEntryForALL). |
786 allProtocols := protocols includes:(self class nameListEntryForALL). |
787 superSendProtocols := protocols includes:(self class nameListEntryForSuperSend). |
787 superSendProtocols := protocols includes:(self class nameListEntryForSuperSend). |
788 uncommentedProtocols := protocols includes:(self class nameListEntryForUncommented). |
788 uncommentedProtocols := protocols includes:(self class nameListEntryForUncommented). |
|
789 obsoleteProtocols := protocols includes:(self class nameListEntryForObsolete). |
789 |
790 |
790 "/ packages := packageFilter value value. |
791 "/ packages := packageFilter value value. |
791 "/ (packages notNil and:[packages includes:(self class nameListEntryForALL)]) ifTrue:[ |
792 "/ (packages notNil and:[packages includes:(self class nameListEntryForALL)]) ifTrue:[ |
792 "/ packages := nil. |
793 "/ packages := nil. |
793 "/ ]. |
794 "/ ]. |
822 ] |
823 ] |
823 ]. |
824 ]. |
824 (allProtocols |
825 (allProtocols |
825 or:[ (protocols includes:cat) |
826 or:[ (protocols includes:cat) |
826 or:[ (superSendProtocols and:[ mthd superMessages notEmptyOrNil ]) |
827 or:[ (superSendProtocols and:[ mthd superMessages notEmptyOrNil ]) |
827 or:[ (uncommentedProtocols and:[ mthd comment isEmptyOrNil ]) ]]]) ifTrue:[ |
828 or:[ (uncommentedProtocols and:[ mthd comment isEmptyOrNil ]) |
|
829 or:[ (obsoleteProtocols and:[ mthd isObsolete ]) ]]]]) ifTrue:[ |
828 mPkg := mthd package. |
830 mPkg := mthd package. |
829 (packages isNil or:[mPkg = noPackage or:[packages includes:mPkg]]) |
831 (packages isNil or:[mPkg = noPackage or:[packages includes:mPkg]]) |
830 ifTrue:[ |
832 ifTrue:[ |
831 (methodVisibilityHolder value == #class) ifTrue:[ |
833 (methodVisibilityHolder value == #class) ifTrue:[ |
832 whatToDo value:aClass value:cat value:sel value:mthd. |
834 whatToDo value:aClass value:cat value:sel value:mthd. |
1146 self showPseudoProtocols value ifTrue:[ |
1148 self showPseudoProtocols value ifTrue:[ |
1147 categoryList add:(self class nameListEntryForSuperSend asText allItalic). |
1149 categoryList add:(self class nameListEntryForSuperSend asText allItalic). |
1148 rawProtocolList add:self class nameListEntryForSuperSend. |
1150 rawProtocolList add:self class nameListEntryForSuperSend. |
1149 categoryList add:(self class nameListEntryForUncommented asText allItalic). |
1151 categoryList add:(self class nameListEntryForUncommented asText allItalic). |
1150 rawProtocolList add:self class nameListEntryForUncommented. |
1152 rawProtocolList add:self class nameListEntryForUncommented. |
|
1153 categoryList add:(self class nameListEntryForObsolete asText allItalic). |
|
1154 rawProtocolList add:self class nameListEntryForObsolete. |
1151 ]. |
1155 ]. |
1152 ]. |
1156 ]. |
1153 ^ categoryList |
1157 ^ categoryList |
1154 |
1158 |
1155 "Created: / 05-02-2000 / 13:42:11 / cg" |
1159 "Created: / 05-02-2000 / 13:42:11 / cg" |
1326 ! ! |
1330 ! ! |
1327 |
1331 |
1328 !MethodCategoryList class methodsFor:'documentation'! |
1332 !MethodCategoryList class methodsFor:'documentation'! |
1329 |
1333 |
1330 version |
1334 version |
1331 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.24 2009-09-14 18:16:13 cg Exp $' |
1335 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.25 2009-09-17 12:03:05 cg Exp $' |
1332 ! ! |
1336 ! ! |