The Trunk: Monticello-mt.709.mcz

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
  !