From 77aae0e86f9fcedbd27759983a57db080631fae5 Mon Sep 17 00:00:00 2001
From: Pierre Laborde <49183340+labordep@users.noreply.github.com>
Date: Tue, 5 Sep 2023 21:53:55 +0200
Subject: [PATCH] Add some *ForCountry: query methods

---
 Gameye/GameyeCollection.class.st | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/Gameye/GameyeCollection.class.st b/Gameye/GameyeCollection.class.st
index d7a90e4..e4a204e 100644
--- 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 [