The Trunk: Monticello-cmm.401.mcz

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

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

Name: Monticello-cmm.401
Author: cmm
Time: 20 September 2010, 5:33:31.869 pm
UUID: 82faade2-135f-4511-abfc-e0af13f73f40
Ancestors: Monticello-cmm.400

Restored copySelector to its prior behavior.  copyReference is added for copying the entire method reference string.

=============== Diff against Monticello-cmm.400 ===============

Item was added:
+ ----- Method: MCCodeTool>>copyReference (in category 'menus') -----
+ copyReference
+ "Copy the selected selector to the clipboard"
+ self selectedMessageName ifNotNilDo:
+ [ : selector | Clipboard clipboardText:
+ (self selectedClassOrMetaClass
+ ifNil: [ selector asString ]
+ ifNotNilDo: [ : cls | (cls >> selector) reference ]) ]!

Item was changed:
  ----- Method: MCCodeTool>>copySelector (in category 'menus') -----
  copySelector
  "Copy the selected selector to the clipboard"
+
+ | selector |
+ (selector := self selectedMessageName) ifNotNil:
+ [Clipboard clipboardText: selector asString]!
- self selectedMessageName ifNotNilDo:
- [ : selector | Clipboard clipboardText:
- (self selectedClassOrMetaClass
- ifNil: [ selector asString ]
- ifNotNilDo: [ : cls | (cls >> selector) signature ]) ]!

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' copyReference)).
- ('copy selector (c)' copySelector)).
  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
  !