[Pkg] The Trunk: Monticello-cmm.618.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Oct 16 19:39:20 UTC 2015


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

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

Name: Monticello-cmm.618
Author: cmm
Time: 16 October 2015, 2:39:05.3 pm
UUID: d1d36117-e8d3-4403-a16d-db1e9167a713
Ancestors: Monticello-eem.617

Recover hot-key $O from MCCodeTool because it is now redundant with $i.  $O is a global key for accessing a Monticello browser.

=============== Diff against Monticello-eem.617 ===============

Item was changed:
  ----- Method: MCCodeTool>>methodListKey:from: (in category 'menus') -----
  methodListKey: aKeystroke from: aListMorph 
  	aKeystroke caseOf: {
  		[$b] -> [self browseMethodFull].
  		[$h] -> [self classHierarchy].
- 		[$O] -> [self openSingleMessageBrowser].
  		[$p] -> [self browseFullProtocol].
  		[$o] -> [self fileOutMessage].
  		[$c] -> [self copySelector].
  		[$n] -> [self browseSendersOfMessages].
  		[$m] -> [self browseMessages].
  		[$i] -> [self methodHierarchy].
  		[$v] -> [self browseVersions]}
  		 otherwise: []!

Item was changed:
  ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') -----
  methodListMenu: aMenu
  	"Build the menu for the selected method, if any."
  	
  	self selectedMessageName
  	ifNil: [items notEmpty ifTrue:
  		[aMenu addList:#(('fileOut (o)'					fileOutMessage))]]
  	ifNotNil: [
  	aMenu addList:#(
  			('browse full (b)' 						browseMethodFull)
  			('browse hierarchy (h)'					classHierarchy)
- 			('browse method (O)'					openSingleMessageBrowser)
  			('browse protocol (p)'					browseFullProtocol)
  			-
  			('fileOut (o)'								fileOutMessage)
  			('printOut'								printOutMessage)
  			('copy selector (c)'						copySelector)
  			('copy reference (C)'					copyReference)).
  		aMenu addList: #(
  			-
  			('browse senders (n)'						browseSendersOfMessages)
  			('browse implementors (m)'					browseMessages)
  			('inheritance (i)'						methodHierarchy)
  			('versions (v)'							browseVersions)
  		('change sets with this method'			findMethodInChangeSets)
  "		('x revert to previous version'				revertToPreviousVersion)"
  		('remove from current change set'		removeFromCurrentChanges)
  "		('x revert & remove from changes'		revertAndForget)"
  		('add to current change set'				adoptMessageInCurrentChangeset)
  "		('x copy up or copy down...'				copyUpOrCopyDown)"
  "		('x remove method (x)'					removeMessage)"
  		"-"
  		).
  	].
  "	aMenu addList: #(
  			('x inst var refs...'						browseInstVarRefs)
  			('x inst var defs...'						browseInstVarDefs)
  			('x class var refs...'						browseClassVarRefs)
  			('x class variables'						browseClassVariables)
  			('x class refs (N)'							browseClassRefs)
  	).
  "
  	^ aMenu
  !

Item was removed:
- ----- Method: MCCodeTool>>openSingleMessageBrowser (in category 'menus') -----
- 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!



More information about the Packages mailing list