The Trunk: Tools-pre.844.mcz

Patrick Rein uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-pre.844.mcz

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

Name: Tools-pre.844
Author: pre
Time: 22 January 2019, 5:53:43.297727 pm
UUID: d2e53210-bbec-4719-bf6e-e3e007caafd8
Ancestors: Tools-eem.843

Recategorizes some messages for message lists in Browser and MessageSet as pointed out by Tim Johnson.

=============== Diff against Tools-eem.843 ===============

Item was changed:
+ ----- Method: Browser>>addExtraShiftedItemsTo: (in category 'message list') -----
- ----- Method: Browser>>addExtraShiftedItemsTo: (in category 'message functions') -----
  addExtraShiftedItemsTo: aMenu
  "The shifted selector-list menu is being built; some menu items are appropriate only for certain kinds of browsers, and this gives a hook for them to be added as approrpiate.  If any is added here, a line should be added first -- browse reimplementors of this message for examples."
  !

Item was changed:
+ ----- Method: Browser>>messageListMenu:shifted: (in category 'message list') -----
- ----- Method: Browser>>messageListMenu:shifted: (in category 'message functions') -----
  messageListMenu: aMenu shifted: shifted
  "Answer the message-list menu"
  ^ self menu: aMenu for: #(messageListMenu messageListMenuShifted:) shifted: shifted
  !

Item was changed:
+ ----- Method: Browser>>shiftedMessageListMenu: (in category 'message list') -----
- ----- 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))].
  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: MessageSet>>mainMessageListMenu: (in category 'message list') -----
- ----- 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 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: MessageSet>>messageListMenu:shifted: (in category 'message list') -----
- ----- Method: MessageSet>>messageListMenu:shifted: (in category 'message functions') -----
  messageListMenu: aMenu shifted: shifted
  "Answer the message-list menu"
  ^ self menu: aMenu for: #(messageListMenu messageListMenuShifted:) shifted: shifted
  !

Item was changed:
+ ----- Method: MessageSet>>shiftedMessageListMenu: (in category 'message list') -----
- ----- Method: MessageSet>>shiftedMessageListMenu: (in category 'message functions') -----
  shiftedMessageListMenu: aMenu
  "Fill aMenu with the items appropriate when the shift key is held down"
  <messageListMenuShifted: true>
 
  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:
  #(('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
  !