The Trunk: Tools-cmm.208.mcz

Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.208.mcz

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

Name: Tools-cmm.208
Author: cmm
Time: 11 March 2010, 1:55:04.279 pm
UUID: dc3f56ac-825c-46bb-a5e3-769b04a24217
Ancestors: Tools-ul.207

Fix for pruning the last message of a MessageTrace.

=============== Diff against Tools-ul.207 ===============

Item was changed:
  ----- Method: MessageTrace>>removeMessageFromBrowser (in category 'building') -----
  removeMessageFromBrowser
  | indexToSelect |
- indexToSelect := (messageSelections indexOf: true) max: 1.
  self selectedMessages do: [ :eachMethodReference | self deleteFromMessageList: eachMethodReference ].
  self deselectAll.
+ indexToSelect := messageSelections
+ ifEmpty: [ 0 ]
+ ifNotEmpty: [ (messageSelections indexOf: true) max: 1 ].
  messageSelections ifNotEmpty:
  [ messageSelections
  at: (indexToSelect min: messageSelections size)  "safety"
  put: true ].
+ anchorIndex := indexToSelect.
+ self
+ messageListIndex: anchorIndex ;
+ reformulateList!
- anchorIndex := messageListIndex := indexToSelect.
- self reformulateList!