Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.703.mcz
==================== Summary ====================
Name: Tools-cmm.703 Author: cmm Time: 2 June 2016, 5:41:56.679756 pm UUID: 9e4c33b5-dae7-4884-9e46-22a4833bebd7 Ancestors: Tools-eem.702
- Corrected menu hot-key indication for 'show category' -- it's (Y) not (C). - Upgraded it to 'toggle category selection', which is really useful given that browsers spawned via Cmd+b come with category automatically selected.
=============== Diff against Tools-eem.702 ===============
Item was removed: - ----- Method: Browser>>selectOriginalCategoryForCurrentMethod (in category 'message category list') ----- - selectOriginalCategoryForCurrentMethod - "private - Select the message category for the current method. - - Note: This should only be called when somebody tries to save - a method that they are modifying while ALL is selected. - - Returns: true on success, false on failure." - | aSymbol selectorName | - aSymbol := self categoryOfCurrentMethod. - selectorName := self selectedMessageName. - (aSymbol notNil and: [aSymbol ~= ClassOrganizer allCategory]) - ifTrue: - [selectedMessageCategoryName := aSymbol. - selectedMessageName := selectorName. - self changed: #messageCategorySelectionChanged. - self changed: #messageCategoryListIndex. "update my selection" - self changed: #messageList. - self changed: #messageListIndex. - ^ true]. - ^ false!
Item was changed: ----- Method: Browser>>shiftedMessageListMenu: (in category 'message functions') ----- shiftedMessageListMenu: aMenu <messageListMenuShifted: true> "Fill aMenu with the items appropriate when the shift key is held down"
aMenu addStayUpItem. aMenu addList: #( ('toggle diffing (D)' toggleDiffing) ('implementors of sent messages' browseAllMessages) - ('local senders of...' browseLocalSendersOfMessages) ('local implementors of...' browseLocalImplementors) - ('spawn sub-protocol' spawnProtocol) ('spawn full protocol' spawnFullProtocol) - ('sample instance' makeSampleInstance) ('inspect instances' inspectInstances) ('inspect subinstances' inspectSubInstances)).
self addExtraShiftedItemsTo: aMenu. aMenu addList: #( - ('change category...' changeCategory)).
self canShowMultipleMessageCategories ifTrue: [aMenu addList: + #(('toggle category selection (Y)' showHomeCategory))]. - #(('show category (C)' showHomeCategory))]. aMenu addList: #( - ('change sets with this method' findMethodInChangeSets) ('revert to previous version' revertToPreviousVersion) ('remove from current change set' removeFromCurrentChanges) ('revert & remove from changes' revertAndForget) ('add to current change set' adoptMessageInCurrentChangeset) ('copy up or copy down...' copyUpOrCopyDown)). ^ aMenu !
Item was changed: ----- Method: Browser>>showHomeCategory (in category 'message category functions') ----- showHomeCategory "Show the home category of the selected method. This is only really useful if one is in a tool that supports the showing of categories. Thus, it's good in browsers and hierarchy browsers but not in message-list browsers"
| aSelector | self okToChange ifTrue: [(aSelector := self selectedMessageName) ifNotNil: + [self toggleCategorySelectionForCurrentMethod. - [self selectOriginalCategoryForCurrentMethod. self selectedMessageName: aSelector]]!
Item was added: + ----- Method: Browser>>toggleCategorySelectionForCurrentMethod (in category 'message category list') ----- + toggleCategorySelectionForCurrentMethod + | methodCategory selectorName | + methodCategory := self categoryOfCurrentMethod. + selectorName := self selectedMessageName. + (methodCategory notNil and: + [ methodCategory ~= ClassOrganizer allCategory and: [ methodCategory ~= selectedMessageCategoryName ] ]) + ifTrue: + [ selectedMessageCategoryName := methodCategory. + selectedMessageName := selectorName. + self changed: #messageCategorySelectionChanged. + self changed: #messageCategoryListIndex. + "update my selection" + self changed: #messageList. + self changed: #messageListIndex ] + ifFalse: + [ methodCategory = selectedMessageCategoryName ifTrue: + [ selectedMessageCategoryName := nil. + self + changed: #messageCategorySelectionChanged ; + changed: #messageCategoryListIndex ; + changed: #messageList ] ]!