[Pkg] The Trunk: Tools-fbs.465.mcz

[commits at source.squeak.org]

Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.465.mcz

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

Name: Tools-fbs.465
Author: fbs
Time: 21 May 2013, 10:58:13.064 pm
UUID: d4b56418-4599-44c2-9407-abc334c4e505
Ancestors: Tools-fbs.464

MethodReference new setStandardClass: foo methodSymbol: bar -> MethodReference class: foo selector: bar.

=============== Diff against Tools-fbs.464 ===============

Item was changed:
  ----- Method: ChangeList>>browseCurrentVersionsOfSelections (in category 'menu actions') -----
  browseCurrentVersionsOfSelections
  	"Opens a message-list browser on the current in-memory versions of all methods that are currently seleted"
  	| aList |
  	aList := OrderedCollection new.
  	Cursor read showWhile: [
  		1 to: changeList size do: [:i |
  			(listSelections at: i) ifTrue: [
  				| aClass aChange |
  				aChange := changeList at: i.
  				(aChange type = #method
  					and: [(aClass := aChange methodClass) notNil
  					and: [aClass includesSelector: aChange methodSelector]])
  						ifTrue: [
  							aList add: (
+ 								MethodReference class: aClass  
+ 									selector: aChange methodSelector
- 								MethodReference new
- 									setStandardClass: aClass  
- 									methodSymbol: aChange methodSelector
  							)
  						]]]].
  
  	aList size = 0 ifTrue: [^ self inform: 'no selected methods have in-memory counterparts'].
  	ToolSet
  		browseMessageSet: aList
  		name: 'Current versions of selected methods in ', file localName
  		autoSelect: nil!

Item was changed:
  ----- Method: ClassCommentVersionsBrowser>>openSingleMessageBrowser (in category 'menu') -----
  openSingleMessageBrowser
  	| mr |
  	"Create and schedule a message list browser populated only by the currently selected message"
  
+ 	mr := MethodReference 
+ 				class: self selectedClass
+ 				selector: #Comment.
- 	mr := MethodReference new
- 				setStandardClass: self selectedClass
- 				methodSymbol: #Comment.
  
  	self systemNavigation 
  		browseMessageList: (Array with: mr)
  		name: mr asStringOrText
  		autoSelect: nil!

Item was changed:
  ----- Method: RecentMessageSet>>removeFromRecentSubmissions (in category 'message functions') -----
  removeFromRecentSubmissions
  	"Remove the currently-selected method from the RecentSubmissions list"
  
  	| aClass methodSym |
  	((aClass := self selectedClassOrMetaClass) notNil and: [(methodSym := self selectedMessageName) notNil])
  		ifTrue: 
+ 			[Utilities purgeFromRecentSubmissions: (MethodReference class: aClass selector: methodSym).
- 			[Utilities purgeFromRecentSubmissions: (MethodReference new setStandardClass: aClass methodSymbol: methodSym).
  			self reformulateList]!

Item was changed:
  ----- Method: StringHolder>>openSingleMessageBrowser (in category '*Tools') -----
  openSingleMessageBrowser
  	| msgName mr |
  	"Create and schedule a message list browser populated only by the currently selected message"
  
  	(msgName := self selectedMessageName) ifNil: [^ self].
  
+ 	mr := MethodReference
+ 		class: self selectedClassOrMetaClass
+ 		selector: msgName.
- 	mr := MethodReference new
- 		setStandardClass: self selectedClassOrMetaClass
- 		methodSymbol: msgName.
  
  	self systemNavigation 
  		browseMessageList: (Array with: mr)
  		name: mr asStringOrText
  		autoSelect: nil!