[squeak-dev] The Trunk: Tools-cmm.271.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Sep 20 22:41:13 UTC 2010
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 ]) ]!
More information about the Squeak-dev
mailing list
|