--- a/Tools_MethodCategoryList.st Mon Sep 21 22:46:04 2009 +0200
+++ b/Tools_MethodCategoryList.st Mon Sep 21 22:46:34 2009 +0200
@@ -527,7 +527,7 @@
rawProtocolList := rawProtocolListHolder value.
idx := rawProtocolList indexOf: (newSelectedProtocols copy remove:(self class nameListEntryForALL); yourself) first.
idx ~~ 0 ifTrue:[
- (listView := self builder componentAt:#List) notNil ifTrue:[
+ (listView := self componentAt:#List) notNil ifTrue:[
listView makeLineVisible:idx.
]
]
@@ -1018,21 +1018,23 @@
]
]
].
- cls selectorsAndMethodsDo:[:sel :mthd |
- mthd category = cat ifTrue:[
- mthd isObsolete ifTrue:[ numObsolete := numObsolete + 1 ].
- mthd superMessages notEmptyOrNil ifTrue:[ numSuper := numSuper + 1 ].
- mthd comment isEmptyOrNil ifTrue:[
- "/ version method does not count !!
- mthd isVersionMethod ifFalse:[
- numUncommented := numUncommented + 1
+ self showPseudoProtocols value ifTrue:[
+ cls selectorsAndMethodsDo:[:sel :mthd |
+ mthd category = cat ifTrue:[
+ mthd isObsolete ifTrue:[ numObsolete := numObsolete + 1 ].
+ mthd superMessages notEmptyOrNil ifTrue:[ numSuper := numSuper + 1 ].
+ mthd comment isEmptyOrNil ifTrue:[
+ "/ version method does not count !!
+ mthd isVersionMethod ifFalse:[
+ numUncommented := numUncommented + 1
+ ].
+ ] ifFalse:[
+ mthd isDocumentationMethod ifTrue:[
+ numDocumentation := numDocumentation + 1
+ ].
].
- ] ifFalse:[
- mthd isDocumentationMethod ifTrue:[
- numDocumentation := numDocumentation + 1
- ].
- ].
- ]
+ ]
+ ].
].
categoryList add:cat.
@@ -1364,5 +1366,5 @@
!MethodCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.28 2009-09-21 13:56:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.29 2009-09-21 20:46:34 cg Exp $'
! !