[squeak-dev] The Trunk: Monticello-mt.709.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Mar 5 14:18:19 UTC 2020


Marcel Taeumel uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mt.709.mcz

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

Name: Monticello-mt.709
Author: mt
Time: 5 March 2020, 3:18:18.385454 pm
UUID: b673c2ef-3e00-9044-b28c-ddeab13a9e79
Ancestors: Monticello-cmm.708

Complete the "#classHierarchy -> #browseClassHierarchy" rename-method refactoring, which was started in 2018 for the ObjectExplorer.

=============== Diff against Monticello-cmm.708 ===============

Item was added:
+ ----- Method: MCCodeTool>>browseClassHierarchy (in category 'menus') -----
+ browseClassHierarchy
+ 	"Create and schedule a class list browser on the receiver's hierarchy."
+ 
+ 	self systemNavigation
+ 		spawnHierarchyForClass: self selectedClassOrMetaClass
+ 		selector: self selectedMessageName	"OK if nil"!

Item was removed:
- ----- Method: MCCodeTool>>classHierarchy (in category 'menus') -----
- classHierarchy
- 	"Create and schedule a class list browser on the receiver's hierarchy."
- 
- 	self systemNavigation  spawnHierarchyForClass: self selectedClassOrMetaClass
- 		selector: self selectedMessageName	"OK if nil"!

Item was changed:
  ----- Method: MCCodeTool>>classListMenu: (in category 'menus') -----
  classListMenu: aMenu 
  
  	aMenu addList: #(
  		-
  		('browse full (b)'			browseMethodFull)
+ 		('browse hierarchy (h)'		browseClassHierarchy)
- 		('browse hierarchy (h)'		classHierarchy)
  		('browse protocol (p)'		browseFullProtocol)
  "		-
  		('printOut'					printOutClass)
  		('fileOut'					fileOutClass)
  "		-
  		('show hierarchy'			methodHierarchy)
  "		('show definition'			editClass)
  		('show comment'			editComment)
  "
  "		-
  		('inst var refs...'			browseInstVarRefs)
  		('inst var defs...'			browseInstVarDefs)
  		-
  		('class var refs...'			browseClassVarRefs)
  		('class vars'					browseClassVariables)
  		('class refs (N)'				browseClassRefs)
  		-
  		('rename class ...'			renameClass)
  		('copy class'				copyClass)
  		('remove class (x)'			removeClass)
  "
  		-
  		('find method...'				findMethodInChangeSets)).
  							
  	^aMenu!

Item was changed:
  ----- Method: MCCodeTool>>methodListKey:from: (in category 'menus') -----
  methodListKey: aKeystroke from: aListMorph 
  	aKeystroke caseOf: {
  		[$b] -> [self browseMethodFull].
+ 		[$h] -> [self browseClassHierarchy].
- 		[$h] -> [self classHierarchy].
  		[$p] -> [self browseFullProtocol].
  		[$o] -> [self fileOutMessage].
  		[$c] -> [self copySelector].
  		[$C] -> [self copyReference].
  		[$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:#(
  			('browse full (b)' 						browseMethodFull)
  			('fileOut (o)'								fileOutMessage))]]
  	ifNotNil: [
  	aMenu addList:#(
  			('browse full (b)' 						browseMethodFull)
+ 			('browse hierarchy (h)'					browseClassHierarchy)
- 			('browse hierarchy (h)'					classHierarchy)
  			('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
  !



More information about the Squeak-dev mailing list