[squeak-dev] The Trunk: Tools-pre.844.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jan 22 16:53:49 UTC 2019
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
!
More information about the Squeak-dev
mailing list
|