The Trunk: Tools-cmm.703.mcz

> 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 ] ]!
>
>