[squeak-dev] The Trunk: Tools-eem.739.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Dec 20 22:49:04 UTC 2016

Eliot Miranda uploaded a new version of Tools to project The Trunk:

==================== 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') -----
  	"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]].
- 		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]!

More information about the Squeak-dev mailing list