add GtFilteredCodersModel>>#addOrReplaceFilters:

Author: JurajKubelka

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

@@ -35,6 +35,32 @@ 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 ] ].
+						
+	isChanged ifFalse: [
+		newFilters := newFilters , (aCollectionOfFilters copyWithoutAll: usedFilters) ].
+	self additionalFilters: newFilters
+]
+
 { #category : #'api - accessing' }
 GtFilteredCodersModel >> additionalFilters [
 	<return: #Collection of: #GtSearchFilter>