[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