Add some *ForCountry: query methods

labordep · Sep 5, 2023 · 77aae0e · 77aae0e
1 parent 2c3a69a
commit 77aae0e
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/Gameye/GameyeCollection.class.st b/Gameye/GameyeCollection.class.st
@@ -76,6 +76,12 @@ GameyeCollection >> collectibles [
 	^collectibles
 ]
 
+{ #category : #'collectibles - query' }
+GameyeCollection >> collectiblesForCountry: aString [
+
+	^ self collectibles select:[ :c | c country = aString ]
+]
+
 { #category : #'collectibles - query' }
 GameyeCollection >> collectiblesForPlatform: aString [
 
@@ -262,6 +268,12 @@ GameyeCollection >> peripheralsCollectibles [
 	^self peripherals asOrderedCollection
 ]
 
+{ #category : #'collectibles - query' }
+GameyeCollection >> peripheralsForCountry: aString [
+
+	^ self peripheralsCollectibles select:[ :c | c country = aString ]
+]
+
 { #category : #'collectibles - query' }
 GameyeCollection >> peripheralsForPlatform: aString [
 
@@ -368,6 +380,12 @@ GameyeCollection >> systemsCollectibles [
 	^self systems asOrderedCollection
 ]
 
+{ #category : #'collectibles - query' }
+GameyeCollection >> systemsForCountry: aString [
+
+	^ self systemsCollectibles select:[ :c | c country = aString ]
+]
+
 { #category : #'collectibles - query' }
 GameyeCollection >> systemsForPlatform: aString [