Matthew Fulmer uploaded a new version of DeltaStreams-UI to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-UI-mtf.2.mcz
==================== Summary ====================
Name: DeltaStreams-UI-mtf.2 Author: mtf Time: 29 May 2008, 2:11:27 pm UUID: 43d57c0b-2193-4da9-8a16-5e2cebb1cd17 Ancestors: DeltaStreams-UI-mtf.1
Ported the changes I made between DeltaStreams-mtf.137 and DeltaStreams-mtf.138:
fixed an indexing problem in the new change list iterators
=============== Diff against DeltaStreams-UI-mtf.1 ===============
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)]!
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 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>>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>>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]]!
packages@lists.squeakfoundation.org