[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