[Pkg] 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 Packages mailing list