[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