equal
deleted
inserted
replaced
525 newSelectedProtocols size > 1 ifTrue:[ |
525 newSelectedProtocols size > 1 ifTrue:[ |
526 (newSelectedProtocols includes:(self class nameListEntryForALL)) ifTrue:[ |
526 (newSelectedProtocols includes:(self class nameListEntryForALL)) ifTrue:[ |
527 rawProtocolList := rawProtocolListHolder value. |
527 rawProtocolList := rawProtocolListHolder value. |
528 idx := rawProtocolList indexOf: (newSelectedProtocols copy remove:(self class nameListEntryForALL); yourself) first. |
528 idx := rawProtocolList indexOf: (newSelectedProtocols copy remove:(self class nameListEntryForALL); yourself) first. |
529 idx ~~ 0 ifTrue:[ |
529 idx ~~ 0 ifTrue:[ |
530 (listView := self builder componentAt:#List) notNil ifTrue:[ |
530 (listView := self componentAt:#List) notNil ifTrue:[ |
531 listView makeLineVisible:idx. |
531 listView makeLineVisible:idx. |
532 ] |
532 ] |
533 ] |
533 ] |
534 ] |
534 ] |
535 ]. |
535 ]. |
1016 itemsWithVarMods add:cat. |
1016 itemsWithVarMods add:cat. |
1017 ]. |
1017 ]. |
1018 ] |
1018 ] |
1019 ] |
1019 ] |
1020 ]. |
1020 ]. |
1021 cls selectorsAndMethodsDo:[:sel :mthd | |
1021 self showPseudoProtocols value ifTrue:[ |
1022 mthd category = cat ifTrue:[ |
1022 cls selectorsAndMethodsDo:[:sel :mthd | |
1023 mthd isObsolete ifTrue:[ numObsolete := numObsolete + 1 ]. |
1023 mthd category = cat ifTrue:[ |
1024 mthd superMessages notEmptyOrNil ifTrue:[ numSuper := numSuper + 1 ]. |
1024 mthd isObsolete ifTrue:[ numObsolete := numObsolete + 1 ]. |
1025 mthd comment isEmptyOrNil ifTrue:[ |
1025 mthd superMessages notEmptyOrNil ifTrue:[ numSuper := numSuper + 1 ]. |
1026 "/ version method does not count !! |
1026 mthd comment isEmptyOrNil ifTrue:[ |
1027 mthd isVersionMethod ifFalse:[ |
1027 "/ version method does not count !! |
1028 numUncommented := numUncommented + 1 |
1028 mthd isVersionMethod ifFalse:[ |
|
1029 numUncommented := numUncommented + 1 |
|
1030 ]. |
|
1031 ] ifFalse:[ |
|
1032 mthd isDocumentationMethod ifTrue:[ |
|
1033 numDocumentation := numDocumentation + 1 |
|
1034 ]. |
1029 ]. |
1035 ]. |
1030 ] ifFalse:[ |
1036 ] |
1031 mthd isDocumentationMethod ifTrue:[ |
1037 ]. |
1032 numDocumentation := numDocumentation + 1 |
|
1033 ]. |
|
1034 ]. |
|
1035 ] |
|
1036 ]. |
1038 ]. |
1037 |
1039 |
1038 categoryList add:cat. |
1040 categoryList add:cat. |
1039 |
1041 |
1040 AdditionalEmptyCategoriesPerClassName size > 0 ifTrue:[ |
1042 AdditionalEmptyCategoriesPerClassName size > 0 ifTrue:[ |
1362 ! ! |
1364 ! ! |
1363 |
1365 |
1364 !MethodCategoryList class methodsFor:'documentation'! |
1366 !MethodCategoryList class methodsFor:'documentation'! |
1365 |
1367 |
1366 version |
1368 version |
1367 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.28 2009-09-21 13:56:30 cg Exp $' |
1369 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.29 2009-09-21 20:46:34 cg Exp $' |
1368 ! ! |
1370 ! ! |