[Pkg] DeltaStreams: DeltaStreams-UI-mtf.4.mcz

[squeaksource-noreply at iam.unibe.ch]

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

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

Name: DeltaStreams-UI-mtf.4
Author: mtf
Time: 30 May 2008, 12:47:01 am
UUID: 7c4d2832-4984-4547-a56c-992172ad1bb2
Ancestors: DeltaStreams-UI-mtf.3

reversed the order most of the iterators in the browser iterate thru changes. Now they iterate in chronological order, rather than view order.

fixed some bugs in some existnig menu commands, and implemented "only show class changes"

=============== Diff against DeltaStreams-UI-mtf.3 ===============

Item was changed:
  ----- Method: DSDeltaStreamBrowser>>shownChangeIndexesDo: (in category 'change list') -----
  shownChangeIndexesDo: aBlock
+ 	"For every change shown, evaluate the block with it's index in allChanges. This is done in chronological order, which is the reverse of the order listed."
- 	"For every change shown, evaluate the block with it's index in allChanges"
  	shownChangeIndexes
+ 		ifNotNil: [shownChangeIndexes reverseDo: aBlock]
+ 		ifNil: [1 to: self allChanges size do: aBlock]!
- 		ifNotNil: [shownChangeIndexes do: aBlock]
- 		ifNil: [self allChanges size to: 1 by: -1 do: aBlock]!

Item was added:
+ ----- Method: DSDeltaStreamBrowser>>onlyClassChanges (in category 'class list') -----
+ onlyClassChanges
+ 	"Limit the visible changes to those of the selected class"
+ 
+ 	| protoChange |
+ 	protoChange := self selectedClassGroupKey.
+ 	self shownChangesSelectVisible: [:change :highlighted |
+ 		change inClassGroupFor: protoChange]!

Item was added:
+ ----- Method: DSDeltaStreamBrowser>>preserveSelectionAround: (in category 'as yet unclassified') -----
+ preserveSelectionAround: aBlock
+ 	"saves the selected category/class/protocol/method, evaluates the block, and restores the selection"
+ 
+ 	aBlock value
+ "
+ 	self selectCategoryForClass: classEditor theNonMetaClass.
+ 	self selectClass: classEditor theNonMetaClass.
+ 	self metaClassIndicated: classEditor isMeta.
+ 	self selectMessageCategoryNamed: methodEditor category.
+ 	self selectedMessageName: methodEditor selector.
+ "!

Item was changed:
  ----- 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"
+ 
+ 	| viewIndex |
+ 	viewIndex := self changeListSize + 1.
+ 	self shownChangeIndexesDo: [:index |
+ 		aBlock value: index value: (viewIndex := viewIndex - 1)]!
- 	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>>computeSystemEditor (in category 'change list') -----
  computeSystemEditor
+ 	delta ifNil: [self editor: nil. ^ self].
- 	delta ifNil: 
- 			[self editor: nil.
- 			^ self].
  	self editor: SystemEditorUIModel new.
  	changeApplier := DSUIApplier on: self editor.
+ 	changeApplier validate: self isValidating.
+ 	self shownChangesDo: [:change | change applyUsing: changeApplier]!
- 	"changeApplier := DSChangeViewFilter on: (DSEvilErrorIgnorer 
- 				on: (DSSystemEditorApplier on: self editor))."
- 	delta isLogging
- 		ifTrue: [delta compositeChange asAntiChange applyUsing: changeApplier]
- 		ifFalse: [delta compositeChange applyUsing: changeApplier]!

Item was added:
+ ----- Method: DSDeltaStreamBrowser>>shownChangesDo: (in category 'change list') -----
+ shownChangesDo: aBlock
+ 	"For every change shown, evaluate the block"
+ 	self shownChangeIndexesDo: [:index |
+ 		aBlock value: (self allChanges at: index)]!

Item was changed:
  ----- Method: DSDeltaStreamBrowser>>changeListIndex: (in category 'change list plug') -----
  changeListIndex: externalIndex
  
  	| change |
  	self log this.
  	changeListIndex = externalIndex ifTrue: [^ self]. "Quick return"
  	changeListIndex := externalIndex.
  	changeListIndex = 0 ifTrue: [^ self].
  	self queueChangesDuring: [
  		change := self shownChangeAt: changeListIndex.
  		self selectChangeSubject: change.
+ 		self changed: #changeListIndex.
- 		"self changed: #changeListIndex."
  	]!

Item was changed:
  ----- Method: DSDeltaStreamBrowser>>shownChangesSelectVisible: (in category 'change list') -----
  shownChangesSelectVisible: aBlock
  	"Select which changes to keep visible by evaluating aBlock with each change and its selected status"
  	| newShownChangeIndexes |
  	newShownChangeIndexes := OrderedCollection new.
  	self shownChangesWithIndexAndHighlightDo: [:change :index :selected |
  		(aBlock value: change value: selected) ifTrue: [newShownChangeIndexes add: index]].
  	changeListIndex := 0.
  	changeListSelection := nil.
  	shownChangeIndexes := newShownChangeIndexes.
+ 	self halt.
  	self computeSystemEditor.
  	self changed: #changeList.
  	self changed: #systemCategoryList!