The Trunk: Tools-fbs.465.mcz

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!