[Pkg] DeltaStreams: DeltaStreams-UI-mtf.3.mcz
squeaksource-noreply at iam.unibe.ch
squeaksource-noreply at iam.unibe.ch
Thu May 29 21:45:42 UTC 2008
Matthew Fulmer uploaded a new version of DeltaStreams-UI to project DeltaStreams:
http://www.squeaksource.com/DeltaStreams/DeltaStreams-UI-mtf.3.mcz
==================== Summary ====================
Name: DeltaStreams-UI-mtf.3
Author: mtf
Time: 29 May 2008, 2:15:22 pm
UUID: 3462d36c-65c1-4a6d-83b9-6b57fab6c0c8
Ancestors: DeltaStreams-UI-mtf.2
ported the changes I made between DeltaStreams-mtf.138 and DeltaStreams-mtf.139:
fixed a few bugs in the visibility selection code
=============== Diff against DeltaStreams-UI-mtf.2 ===============
Item was added:
+ ----- Method: DSDeltaStreamBrowser>>changeListShowAll (in category 'change list menu') -----
+ changeListShowAll
+ shownChangeIndexes := nil.
+ self computeSystemEditor.
+ self changed: #changeList.
+ self changed: #systemCategoryList.!
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 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>>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 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!
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]!
More information about the Packages
mailing list