The Trunk: Tools-eem.739.mcz

Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.739.mcz

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

Name: Tools-eem.739
Author: eem
Time: 20 December 2016, 2:48:50.32678 pm
UUID: 244c1a0b-92b0-4336-8f35-2ebf136f8af6
Ancestors: Tools-eem.738

Preserve the selected method in recent messages when adding, removing or changing a method.

=============== Diff against Tools-eem.738 ===============

Item was changed:
  ----- Method: RecentMessageSet>>reformulateList (in category 'update') -----
  reformulateList
  "Reformulate the receiver's list.  Exclude methods now deleted"
+
+ | currentSelection |
+ messageListIndex > 0 ifTrue:
+ [currentSelection := messageList at: messageListIndex].
+ self initializeMessageList: (RecentMessages default methodReferences select: [:mr| mr isValid]).
+ currentSelection ifNotNil:
+ [messageListIndex := messageList indexOf: currentSelection ifAbsent: [1]].
-
  self
- initializeMessageList: RecentMessages default methodReferences;
- messageListIndex: (self messageListIndex min: messageList size);
  changed: #messageList;
+ changed: #messageListIndex!
- changed: #messageListIndex.!

Item was changed:
  ----- Method: RecentMessageSet>>updateListsAndCodeIn: (in category 'update') -----
  updateListsAndCodeIn: aWindow
  self canDiscardEdits ifFalse: [^self].
  RecentMessages default isEmpty ifTrue: [^self].
  (messageList isEmpty
+ or: [RecentMessages default mostRecent = messageList first and: [RecentMessages default mostRecent isValid]])
- or: [RecentMessages default mostRecent = messageList first])
  ifTrue: [self updateCodePaneIfNeeded]
  ifFalse: [self reformulateList]!