The Trunk: Monticello-kfr.633.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Monticello-kfr.633.mcz

commits-2
Karl Ramberg uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-kfr.633.mcz

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

Name: Monticello-kfr.633
Author: kfr
Time: 27 May 2016, 5:35:08.132864 pm
UUID: faacff6a-dfd6-45ef-98a1-b9a4796cd757
Ancestors: Monticello-mt.632

When a class only has instance variable changes MCMergeBrowser does not offer a menu option to access a browser

=============== Diff against Monticello-mt.632 ===============

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))]]
- [aMenu addList:#(('fileOut (o)' fileOutMessage))]]
  ifNotNil: [
  aMenu addList:#(
  ('browse full (b)' browseMethodFull)
  ('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
  !