Merge 5410b02

Author: syrel

src/GToolkit-Coder-StreamingCoders-UI/GtFilteredCodersViewModel.class.st

@@ -12,6 +12,11 @@ GtFilteredCodersViewModel >> addOrReplaceFilter: aFilter [
 	streamingCodersModel addOrReplaceFilter: aFilter
 ]
 
+{ #category : #'api - accessing' }
+GtFilteredCodersViewModel >> addOrReplaceFilters: aCollectionOfFilters [
+	streamingCodersModel addOrReplaceFilters: aCollectionOfFilters
+]
+
 { #category : #'api - accessing' }
 GtFilteredCodersViewModel >> additionalFilters [
 	<return: #Collection of: #GtSearchFilter>

src/GToolkit-Coder-StreamingCoders/GtFilteredCodersModel.class.st

@@ -35,6 +35,30 @@ GtFilteredCodersModel >> addOrReplaceFilter: aFilter [
 	self additionalFilters: newFilters
 ]
 
+{ #category : #'api - accessing' }
+GtFilteredCodersModel >> addOrReplaceFilters: aCollectionOfFilters [
+	"Add or replace given additional filters.
+	Each filter of the same filter type (class) is replaced by the given filters."
+
+	| newFilters isChanged usedFilters |
+	isChanged := false.
+	usedFilters := OrderedCollection new.
+	newFilters := self additionalFilters
+			collect: [ :existingFilter | 
+				aCollectionOfFilters
+					detect: [ :givenFilter | 
+						existingFilter filterType = givenFilter filterType ] 
+					ifFound: [ :givenFilter |
+						isChanged := true.
+						usedFilters add: givenFilter.
+						givenFilter ] 
+					ifNone: [
+						existingFilter ] ].
+						
+	newFilters := newFilters , (aCollectionOfFilters copyWithoutAll: usedFilters).
+	self additionalFilters: newFilters
+]
+
 { #category : #'api - accessing' }
 GtFilteredCodersModel >> additionalFilters [
 	<return: #Collection of: #GtSearchFilter>