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!