The Trunk: Tools-nice.697.mcz

Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.697.mcz

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

Name: Tools-nice.697
Author: nice
Time: 4 May 2016, 11:43:43.009175 pm
UUID: 1d1b24ec-1ccd-4a62-af56-90db017c5eda
Ancestors: Tools-mt.630, Tools-mt.696

Move #representsSameBrowseeAs: and #postAcceptBrowseFor: out of Morphic

=============== Diff against Tools-mt.696 ===============

Item was added:
+ ----- Method: HierarchyBrowser>>postAcceptBrowseFor: (in category 'morphic ui') -----
+ postAcceptBrowseFor: aHierarchyBrowser
+ (aHierarchyBrowser selectedClass ~= self selectedClass or: [ aHierarchyBrowser selectedMessageName notNil ]) ifTrue: [ self selectMessageCategoryNamed: nil ].
+ aHierarchyBrowser instanceMessagesIndicated
+ ifTrue: [ self indicateInstanceMessages ]
+ ifFalse: [ self indicateClassMessages ].
+ self
+ selectClass: aHierarchyBrowser selectedClass ;
+ selectedMessageName: aHierarchyBrowser selectedMessageName ;
+ showHomeCategory!

Item was added:
+ ----- Method: HierarchyBrowser>>representsSameBrowseeAs: (in category 'morphic ui') -----
+ representsSameBrowseeAs: anotherModel
+ ^ self hasUnacceptedEdits not
+ and: [ classDisplayList size = anotherModel classList size
+ and: [ classDisplayList includesAllOf: anotherModel classList ] ]!

Item was added:
+ ----- Method: Inspector>>representsSameBrowseeAs: (in category 'morphic ui') -----
+ representsSameBrowseeAs: anotherInspector
+ ^ self object == anotherInspector object!

Item was added:
+ ----- Method: MessageSet>>representsSameBrowseeAs: (in category 'morphic ui') -----
+ representsSameBrowseeAs: anotherModel
+ ^ self hasUnacceptedEdits not
+ and: [ messageList = anotherModel messageList ]!

Item was changed:
+ ----- Method: MessageSet>>request:initialAnswer: (in category 'user interface') -----
- ----- Method: MessageSet>>request:initialAnswer: (in category 'as yet unclassified') -----
  request: prompt initialAnswer: initialAnswer
 
  ^ UIManager default
  request: prompt
  initialAnswer: initialAnswer!