The Trunk: Tools-cmm.639.mcz

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

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

Name: Tools-cmm.639
Author: cmm
Time: 16 October 2015, 2:36:34.893 pm
UUID: b778b9de-f4c8-4bc4-a120-c9ac3e2cfaed
Ancestors: Tools-cmm.638

Now that the inheritance (i) function can take over for "open single message browser (O)", recover the (O) hot-key for global availability (opens a Monticello browser).  Although probably not necessary, the original "single method" functionality can now be accessed with Command+iId.

=============== Diff against Tools-cmm.638 ===============

Item was changed:
  ----- Method: Browser>>mainMessageListMenu: (in category 'message functions') -----
  mainMessageListMenu: aMenu
  <messageListMenuShifted: false>
  ^ aMenu addList: #(
  ('what to show...' offerWhatToShowMenu)
  ('toggle break on entry' toggleBreakOnEntry)
  -
  ('browse full (b)' browseMethodFull)
  ('browse hierarchy (h)' classHierarchy)
- ('browse method (O)' openSingleMessageBrowser)
  ('browse protocol (p)' browseFullProtocol)
  -
  ('fileOut' fileOutMessage)
  ('printOut' printOutMessage)
  ('copy selector (c)' copySelector)
  ('copy reference (C)' copyReference)
  -
  ('senders of... (n)' browseSendersOfMessages)
  ('implementors of... (m)' browseMessages)
  ('inheritance (i)' methodHierarchy)
  ('versions (v)' browseVersions)
  -
  ('references... (r)' browseVariableReferences)
  ('assignments... (a)' browseVariableAssignments)
  ('class refs (N)' browseClassRefs)
  -
  ('remove method (x)' removeMessage)
  ('explore method' exploreMethod)
  ('inspect method' inspectMethod));
  yourself
  !

Item was changed:
  ----- Method: ChangeSorter>>unshiftedMessageMenu: (in category 'message list') -----
  unshiftedMessageMenu: aMenu
  "Fill aMenu with items appropriate for the message list; could be for a single or double changeSorter"
 
  <messageListMenuShifted: false>
 
  aMenu title: 'message list'.
  aMenu addStayUpItemSpecial.
 
  parent ifNotNil:
  [aMenu addList: #(
  ('copy method to other side' copyMethodToOther)
  ('move method to other side' moveMethodToOther))].
 
  aMenu addList: #(
  ('delete method from changeSet (d)' forget)
  -
  ('remove method from system (x)' removeMessage)
  -
  ('browse full (b)' browseMethodFull)
  ('browse hierarchy (h)' spawnHierarchy)
- ('browse method (O)' openSingleMessageBrowser)
  ('browse protocol (p)' browseFullProtocol)
  -
  ('fileOut' fileOutMessage)
  ('printOut' printOutMessage)
  -
  ('senders of... (n)' browseSendersOfMessages)
  ('implementors of... (m)' browseMessages)
  ('inheritance (i)' methodHierarchy)
  ('versions (v)' browseVersions)).
  ^ aMenu
  !

Item was removed:
- ----- Method: ClassCommentVersionsBrowser>>openSingleMessageBrowser (in category 'menu') -----
- openSingleMessageBrowser
- | mr |
- "Create and schedule a message list browser populated only by the currently selected message"
-
- mr := MethodReference
- class: self selectedClass
- selector: #Comment.
-
- self systemNavigation
- browseMessageList: (Array with: mr)
- name: mr asStringOrText
- autoSelect: nil!

Item was changed:
  ----- Method: CodeHolder>>messageListKey:from: (in category 'message list menu') -----
  messageListKey: aChar from: view
  "Respond to a Command key.  I am a model with a code pane, and I also
  have a listView that has a list of methods.  The view knows how to get
  the list and selection."
  | sel class |
  aChar == $D ifTrue: [^ self toggleDiffing].
  sel := self selectedMessageName.
  aChar == $m ifTrue:  "These next two put up a type in if no message selected"
  [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self ].
  aChar == $n ifTrue:
  [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self ].
  aChar == $d ifTrue: [^ self removeMessageFromBrowser].
  "The following require a class selection"
  (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view].
  aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel].
  aChar == $N ifTrue: [^ self browseClassRefs].
  aChar == $i ifTrue: [^ self methodHierarchy].
  aChar == $h ifTrue: [^ self classHierarchy].
  aChar == $p ifTrue: [^ self browseFullProtocol].
  aChar == $r ifTrue: [^ self browseVariableReferences].
  aChar == $a ifTrue: [^ self browseVariableAssignments].
  "The following require a method selection"
  sel ifNotNil:
  [aChar == $o ifTrue: [^ self fileOutMessage].
  aChar == $c ifTrue: [^ self copySelector].
  aChar == $v ifTrue: [^ self browseVersions].
- aChar == $O ifTrue: [^ self openSingleMessageBrowser].
  aChar == $x ifTrue: [^ self removeMessage].
  (aChar == $C and: [self canShowMultipleMessageCategories])
  ifTrue: [^ self showHomeCategory]].
  ^ self arrowKey: aChar from: view!

Item was changed:
  ----- Method: Debugger>>shiftedContextStackMenu: (in category 'context stack menu') -----
  shiftedContextStackMenu: aMenu
  "Set up the menu appropriately for the context-stack-list, shifted"
  <contextStackMenuShifted: true>
  ^ aMenu addList: #(
  ('browse class hierarchy' classHierarchy)
  ('browse class' browseClass)
- ('browse method (O)' openSingleMessageBrowser)
  ('implementors of sent messages' browseAllMessages)
  ('change sets with this method' findMethodInChangeSets)
  -
  ('inspect instances' inspectInstances)
  ('inspect subinstances' inspectSubInstances)
  -
  ('revert to previous version' revertToPreviousVersion)
  ('remove from current change set' removeFromCurrentChanges)
  ('revert & remove from changes' revertAndForget));
  yourself
  !

Item was added:
+ ----- Method: MessageSet>>deselectAll (in category 'private') -----
+ deselectAll
+ self messageListIndex: 0!

Item was changed:
  ----- Method: MessageSet>>mainMessageListMenu: (in category 'message functions') -----
  mainMessageListMenu: aMenu
  "Answer the message-list menu"
  <messageListMenuShifted: false>
  aMenu addList: #(
  ('what to show...' offerWhatToShowMenu)
  ('toggle break on entry' toggleBreakOnEntry)
  -
  ('browse full (b)' browseMethodFull)
  ('browse hierarchy (h)' classHierarchy)
- ('browse method (O)' openSingleMessageBrowser)
  ('browse protocol (p)' browseFullProtocol)
  -
  ('fileOut' fileOutMessage)
  ('printOut' printOutMessage)
  ('copy selector (c)' copySelector)
  ('copy reference (C)' copyReference)
  -
  ('senders of... (n)' browseSendersOfMessages)
  ('implementors of... (m)' browseMessages)
  ('inheritance (i)' methodHierarchy)
  ('versions (v)' browseVersions)
  -
  ('references... (r)' browseVariableReferences)
  ('assignments... (a)' browseVariableAssignments)
  ('class refs (N)' browseClassRefs)
  -
  ('remove method (x)' removeMessage)
  ('explore method' exploreMethod)
  ('inspect method' inspectMethod)).
  ^ aMenu!

Item was changed:
  ----- Method: MessageTrace>>deselectAll (in category 'actions') -----
  deselectAll
+ super deselectAll.
- self messageListIndex: 0.
  1 to: messageSelections size do: [ :index | messageSelections at: index put: false ]
  !

Item was changed:
  ----- Method: StringHolder>>messageListKey:from: (in category '*Tools') -----
  messageListKey: aChar from: view
  "Respond to a Command key.  I am a model with a code pane, and I also
  have a listView that has a list of methods.  The view knows how to get
  the list and selection."
 
  | sel class |
  aChar == $D ifTrue: [^ self toggleDiffing].
 
  sel := self selectedMessageName.
  aChar == $m ifTrue:  "These next two put up a type in if no message selected"
  [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self systemNavigation].
  aChar == $n ifTrue:
  [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self systemNavigation].
 
  "The following require a class selection"
  (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view].
  aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel].
  aChar == $N ifTrue: [^ self browseClassRefs].
  aChar == $i ifTrue: [^ self methodHierarchy].
  aChar == $h ifTrue: [^ self classHierarchy].
  aChar == $p ifTrue: [^ self browseFullProtocol].
 
  "The following require a method selection"
  sel ifNotNil:
  [aChar == $o ifTrue: [^ self fileOutMessage].
  aChar == $c ifTrue: [^ self copySelector].
  aChar == $v ifTrue: [^ self browseVersions].
- aChar == $O ifTrue: [^ self openSingleMessageBrowser].
  aChar == $x ifTrue: [^ self removeMessage]].
 
  ^ self arrowKey: aChar from: view!

Item was removed:
- ----- Method: StringHolder>>openSingleMessageBrowser (in category '*Tools') -----
- openSingleMessageBrowser
- | msgName mr |
- "Create and schedule a message list browser populated only by the currently selected message"
-
- (msgName := self selectedMessageName) ifNil: [^ self].
-
- mr := MethodReference
- class: self selectedClassOrMetaClass
- selector: msgName.
-
- self systemNavigation
- browseMessageList: (Array with: mr)
- name: mr asStringOrText
- autoSelect: nil!

Item was changed:
  ----- Method: VersionsBrowser>>mainVersionsMenu: (in category 'menu') -----
  mainVersionsMenu: aMenu
  "Fill aMenu with menu items appropriate to the receiver"
  <versionsMenu>
 
  aMenu addTranslatedList: #(
  ('remove from changes' removeMethodFromChanges 'remove this method from the current change set, if present')
- ('edit current method (O)' openSingleMessageBrowser 'open a single-message browser on the current version of this method')
  ('find original change set' findOriginalChangeSet 'locate the changeset which originally contained this version')
  -
  ('toggle diffing (D)' toggleDiffing 'toggle whether or not diffs should be shown here')
  ('update list' reformulateList 'reformulate the list of versions, in case it somehow got out of synch with reality')
  -
  ('senders (n)' browseSenders 'browse all senders of this selector')
  ('implementors (m)' browseImplementors 'browse all implementors of this selector')
+ ('inheritance (i)' methodHierarchy 'browse method inheritance')
  -
  ('help...' offerVersionsHelp 'provide an explanation of the use of this tool')).
 
  ^aMenu!