equal
deleted
inserted
replaced
644 ]. |
644 ]. |
645 rawProtocolList notNil ifTrue:[ |
645 rawProtocolList notNil ifTrue:[ |
646 selectedCategories := selectedProtocolsHolder value ? #(). |
646 selectedCategories := selectedProtocolsHolder value ? #(). |
647 selectedCategories := selectedCategories collect:[:each | each ifNil:[self class nameListEntryForNILCategory]]. |
647 selectedCategories := selectedCategories collect:[:each | each ifNil:[self class nameListEntryForNILCategory]]. |
648 newIndices := selectedCategories |
648 newIndices := selectedCategories |
649 collect:[:each | rawProtocolList findFirst:[:p | p string = each string]]. |
649 collect:[:each | rawProtocolList findFirst:[:p | p string = each string]] |
650 newIndices := newIndices select:[:each | each ~~ 0]. |
650 thenSelect:[:each | each ~~ 0]. |
651 newIndices ~= self selectedProtocolIndices value ifTrue:[ |
651 newIndices ~= self selectedProtocolIndices value ifTrue:[ |
652 self selectedProtocolIndices |
652 self selectedProtocolIndices |
653 setValue:nil; "/ to force update |
653 setValue:nil; "/ to force update |
654 value:newIndices. |
654 value:newIndices. |
655 ]. |
655 ]. |
2199 ! ! |
2199 ! ! |
2200 |
2200 |
2201 !MethodCategoryList class methodsFor:'documentation'! |
2201 !MethodCategoryList class methodsFor:'documentation'! |
2202 |
2202 |
2203 version |
2203 version |
2204 ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.112 2015-05-19 16:38:42 cg Exp $' |
2204 ^ '$Header$' |
2205 ! |
2205 ! |
2206 |
2206 |
2207 version_CVS |
2207 version_CVS |
2208 ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.112 2015-05-19 16:38:42 cg Exp $' |
2208 ^ '$Header$' |
2209 ! ! |
2209 ! ! |
2210 |
2210 |
2211 |
2211 |
2212 MethodCategoryList initialize! |
2212 MethodCategoryList initialize! |
2213 MethodCategoryList::CachedMethodInfo initialize! |
2213 MethodCategoryList::CachedMethodInfo initialize! |