The Trunk: Protocols-cmm.60.mcz

Chris Muller uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-cmm.60.mcz

==================== Summary ====================

Name: Protocols-cmm.60
Author: cmm
Time: 25 April 2018, 6:21:41.762589 pm
UUID: acc5dbab-1470-4dbe-8432-b69ae91e544d
Ancestors: Protocols-ul.59

Make "show home category" of Protocol browsers behave similarly with Hierarchy and PackagePane browsers by letting it toggle both on and off instead of only on.

=============== Diff against Protocols-ul.59 ===============

Item was added:
+ ----- Method: Lexicon>>selectCategoryAll (in category 'category list') -----
+ selectCategoryAll
+ self categoryListIndex: (categoryList indexOf: self class allCategoryName)!

Item was removed:
- ----- Method: Lexicon>>setToShowSelector: (in category 'selection') -----
- setToShowSelector: aSelector
- "Set up the receiver so that it will show the given selector"
-
- | catName catIndex detectedItem messageIndex aList |
- catName := (aList := currentVocabulary categoriesContaining: aSelector  forClass: targetClass) size > 0
- ifTrue:
- [aList first]
- ifFalse:
- [self class allCategoryName].
- catIndex := categoryList indexOf: catName ifAbsent: [1].
- self categoryListIndex: catIndex.
- detectedItem := messageList detect:
- [:anItem | (anItem upTo: $ ) asString asSymbol == aSelector] ifNone: [^ self].
- messageIndex := messageList indexOf: detectedItem.
- self messageListIndex: messageIndex
- !

Item was added:
+ ----- Method: Lexicon>>setToShowSelector:selectCategory: (in category 'selection') -----
+ setToShowSelector: selectorString selectCategory: aBoolean
+ "Set up the receiver so that it will show the given selector"
+ | catName catIndex messageIndex aList |
+ catName := aBoolean
+ ifTrue:
+ [ (aList := currentVocabulary
+ categoriesContaining: selectorString
+ forClass: targetClass)
+ at: 1
+ ifAbsent: [ self class allCategoryName ] ]
+ ifFalse: [ self class allCategoryName ].
+ catIndex := categoryList
+ indexOf: catName
+ ifAbsent: [ 1 ].
+ self categoryListIndex: catIndex.
+ messageList
+ detect:
+ [ : anItem | (anItem upTo: Character space) asString asSymbol == selectorString ]
+ ifFound:
+ [ : detectedItem | messageIndex := messageList indexOf: detectedItem.
+ self messageListIndex: messageIndex ]
+ ifNone: [ ^ self ]!

Item was changed:
  ----- Method: Lexicon>>showHomeCategory (in category 'menu commands') -----
  showHomeCategory
+ "Toggle the selection of the category of the currently-selected method or category."
+ self selectedMessageName
+ ifNil:
+ [ self selectedCategoryName ifNotNil: [ self selectCategoryAll ] ]
+ ifNotNil:
+ [ : selector | self selectedCategoryName = self class allCategoryName
+ ifTrue:
+ [ self preserveSelectorIfPossibleSurrounding:
+ [ self
+ setToShowSelector: selector
+ selectCategory: true ] ]
+ ifFalse:
+ [ self
+ setToShowSelector: selector
+ selectCategory: false ] ]!
- "Continue to show the current selector, but show it within the context of its primary category"
-
- | aSelector |
- (aSelector := self selectedMessageName) ifNotNil:
- [self preserveSelectorIfPossibleSurrounding:
- [self setToShowSelector: aSelector]]!