[Packages] DeltaStreams: DeltaStreams-mtf.138.mcz
squeaksource-noreply at iam.unibe.ch
squeaksource-noreply at iam.unibe.ch
Thu May 15 22:47:00 UTC 2008
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)]!
More information about the Packages
mailing list