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!
packages@lists.squeakfoundation.org