[Pkg] The Trunk: Monticello-cmm.401.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Sep 20 22:33:45 UTC 2010
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
!
More information about the Packages
mailing list