[Pkg] DeltaStreams: DeltaStreams-mtf.139.mcz

[squeaksource-noreply at iam.unibe.ch]

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

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

Name: DeltaStreams-mtf.139
Author: mtf
Time: 29 May 2008, 11:56:25 am
UUID: a99a9a6f-edf3-49a2-9f3c-0b62757a5e63
Ancestors: DeltaStreams-mtf.138

fixed a few bugs in the visibility selection code

=============== Diff against DeltaStreams-mtf.138 ===============

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 computeSystemEditor.
  	self changed: #changeList.
  	self changed: #systemCategoryList!

Item was added:
+ ----- Method: DSDeltaStreamBrowser>>changeListShowAll (in category 'change list menu') -----
+ changeListShowAll
+ 	shownChangeIndexes := nil.
+ 	self computeSystemEditor.
+ 	self changed: #changeList.
+ 	self changed: #systemCategoryList.!

Item was added:
+ ----- Method: DSDeltaStreamBrowser>>computeSystemEditor (in category 'change list') -----
+ computeSystemEditor
+ 	delta ifNil: 
+ 			[self editor: nil.
+ 			^ self].
+ 	self editor: SystemEditorUIModel new.
+ 	changeApplier := DSUIApplier on: self editor.
+ 	"changeApplier := DSChangeViewFilter on: (DSEvilErrorIgnorer 
+ 				on: (DSSystemEditorApplier on: self editor))."
+ 	delta isLogging
+ 		ifTrue: [delta compositeChange asAntiChange applyUsing: changeApplier]
+ 		ifFalse: [delta compositeChange applyUsing: changeApplier]!

Item was changed:
  ----- Method: DSDeltaStreamBrowser>>delta: (in category 'accessing') -----
  delta: aDelta
  	delta == aDelta ifTrue: [^ self].
  	changeListIndex := 0.
  	versionListIndex := 0.
  	delta ifNotNil: [delta removeDependent: self].
  	delta := aDelta.
  	delta ifNotNil: [delta addDependent: self].
  	unsavedChanges := nil.
  	shownChangeIndexes := nil.
  	changeListShowList := nil.
  	changeListShowFilter := nil.
  	changeListSelection := nil.
+ 	self computeSystemEditor.!
- 	delta ifNil: 
- 			[self editor: nil.
- 			^ self].
- 	self editor: SystemEditorUIModel new.
- 	changeApplier := DSUIApplier on: self editor.
- 	"changeApplier := DSChangeViewFilter on: (DSEvilErrorIgnorer 
- 				on: (DSSystemEditorApplier on: self editor))."
- 	delta isLogging
- 		ifTrue: [delta compositeChange asAntiChange applyUsing: changeApplier]
- 		ifFalse: [delta compositeChange applyUsing: changeApplier]!

Item was removed:
- ----- Method: DSDeltaStreamBrowser>>changeListSelectionAtChanges:put: (in category 'change list') -----
- changeListSelectionAtChanges: aCompositeChange put: aBoolean
- 	"Select/unselect the changes in the change list. Depends on each change's number being set correctly"
- 	
- 	aCompositeChange do: [:change | self changeListSelectionInternalAt: change number put: aBoolean]!

Item was removed:
- ----- Method: DSDeltaStreamBrowser>>changeListSelectionInternalAt:put: (in category 'change list') -----
- changeListSelectionInternalAt: internalIndex put: aBooleanOrNil
- 	| aBoolean |
- 	aBoolean := aBooleanOrNil ifNil: [false].
- 	(aBoolean isKindOf: Boolean) ifFalse: [self halt].
- 	aBoolean == (self changeListSelectionInternalAt: internalIndex) ifTrue: [^ self].
- 	changeListSelection ifNil: [changeListSelection := OrderedCollection new atAllPut: false].
- 	"make sure the list is big enough"
- 	changeListSelection ensureIndex: internalIndex fillWith: false.
- 	changeListSelection at: internalIndex put: aBoolean!