The Trunk: Tools-cmm.271.mcz

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

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

Name: Tools-cmm.271
Author: cmm
Time: 20 September 2010, 5:40:48.425 pm
UUID: 166c0c0e-2807-46f2-bf73-8a926ef1eba0
Ancestors: Tools-cmm.270

Recovered the former behavior for copySelector, added copyReference.

=============== Diff against Tools-cmm.270 ===============

Item was changed:
  ----- Method: Browser>>messageListMenu:shifted: (in category 'message functions') -----
  messageListMenu: aMenu shifted: shifted
  "Answer the message-list menu"
  (self menuHook: aMenu named: #messageListMenu shifted: shifted) ifTrue:[^aMenu].
  shifted ifTrue: [^ self shiftedMessageListMenu: aMenu].
  aMenu addList: #(
  ('what to show...' offerWhatToShowMenu)
  ('toggle break on entry' toggleBreakOnEntry)
  -
  ('browse full (b)' browseMethodFull)
  ('browse hierarchy (h)' classHierarchy)
  ('browse method (O)' openSingleMessageBrowser)
  ('browse protocol (p)' browseFullProtocol)
  -
  ('fileOut' fileOutMessage)
  ('printOut' printOutMessage)
+ ('copy selector (c)' copySelector)
+ ('copy reference' copyReference)
  -
  ('senders of... (n)' browseSendersOfMessages)
  ('implementors of... (m)' browseMessages)
  ('inheritance (i)' methodHierarchy)
  ('versions (v)' browseVersions)
  -
  ('inst var refs...' browseInstVarRefs)
  ('inst var defs...' browseInstVarDefs)
  ('class var refs...' browseClassVarRefs)
  ('class variables' browseClassVariables)
  ('class refs (N)' browseClassRefs)
  -
  ('remove method (x)' removeMessage)
  ('explore method' exploreMethod)
  ('inspect method' inspectMethod)
  -
  ('more...' shiftedYellowButtonActivity)).
  ^ aMenu!

Item was changed:
  ----- Method: RecentMessageSet>>messageListMenu:shifted: (in category 'message functions') -----
  messageListMenu: aMenu shifted: shifted
  "Answer the message-list menu"
 
  shifted ifTrue: [^ self shiftedMessageListMenu: aMenu].
  aMenu addList:#(
  ('what to show...' offerWhatToShowMenu)
  -
  ('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)
  -
  ('senders of... (n)' browseSendersOfMessages)
  ('implementors of... (m)' browseMessages)
  ('inheritance (i)' methodHierarchy)
  ('versions (v)' browseVersions)
  -
  ('inst var refs...' browseInstVarRefs)
  ('inst var defs...' browseInstVarDefs)
  ('class var refs...' browseClassVarRefs)
  ('class variables' browseClassVariables)
  ('class refs (N)' browseClassRefs)
  -
  ('remove method (x)' removeMessage)
  ('remove from RecentSubmissions' removeFromRecentSubmissions)
  -
  ('more...' shiftedYellowButtonActivity)).
  ^ aMenu!

Item was added:
+ ----- Method: StringHolder>>copyReference (in category '*Tools') -----
+ 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: StringHolder>>copySelector (in category '*Tools') -----
  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 ]) ]!