Matthew Fulmer uploaded a new version of DeltaStreams to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-mtf.138.mcz

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

Name: DeltaStreams-mtf.138 Author: mtf Time: 23 April 2008, 9:41:08 am UUID: bd6bbff9-81cd-41ef-a1fd-5127e4b32b8d Ancestors: DeltaStreams-mtf.137

fixed an indexing problem in the new change list iterators

=============== Diff against DeltaStreams-mtf.137 ===============

Item was changed: ----- Method: DSDeltaStreamBrowser>>shownChangesSelectHighlights: (in category 'change list') ----- shownChangesSelectHighlights: aBlock "Select which changes to highlight by evaluating aBlock with each change and its hilighted status" + self shownChangesWithViewIndexAndHighlightDo: [:change :viewIndex :highlighted | + self changeListSelectionAt: viewIndex - self shownChangesWithIndexAndHighlightDo: [:change :index :highlighted | - self changeListSelectionAt: index put: (aBlock value: change value: highlighted)]. + self changed: #changeList! - self changed: #changeListIndex!

Item was added: + ----- Method: DSChangeListMorph>>update: (in category 'as yet unclassified') ----- + update: aParameter + self haltOnlyOnce. + ^ super update: aParameter!

Item was changed: ----- Method: DSDeltaStreamBrowser>>shownChangesWithIndexAndHighlightDo: (in category 'change list') ----- shownChangesWithIndexAndHighlightDo: aBlock "Evaluate the block with each visible change, its visible index, and its highlighted status" + self shownChangesIndexesDo: [:index :viewIndex | aBlock - self shownChangeIndexesDo: [:index | aBlock value: (self allChanges at: index) value: index + value: (self changeListSelectionAt: viewIndex)]! - value: (self changeListSelectionAt: index)]!

Item was added: + ----- Method: DSDeltaStreamBrowser>>shownChangesIndexesDo: (in category 'change list') ----- + shownChangesIndexesDo: aBlock + "For every change shown, evaluate the block with its index in allChanges, and its view index" + shownChangeIndexes + ifNotNil: [shownChangeIndexes withIndexDo: aBlock] + ifNil: [self allChanges size to: 1 by: -1 do: [:index | + aBlock value: index value: self allChanges size - index + 1]]!

Item was changed: ----- Method: DSDeltaStreamBrowser>>selectClassChanges (in category 'class list') ----- selectClassChanges "Select all changes for the selected class"

| protoChange | - self halt. protoChange := self selectedClassGroupKey. self shownChangesSelectHighlights: [:change :highlighted | highlighted or: [change inClassGroupFor: protoChange]]!

Item was added: + ----- Method: DSDeltaStreamBrowser>>shownChangesWithViewIndexAndHighlightDo: (in category 'change list') ----- + shownChangesWithViewIndexAndHighlightDo: aBlock + "Evaluate the block with each visible change, its visible index, and its highlighted status" + self shownChangesIndexesDo: [:index :viewIndex | aBlock + value: (self allChanges at: index) + value: viewIndex + value: (self changeListSelectionAt: viewIndex)]!