Merge pull request #774 from moosetechnology/missing-enumerating-methods

Add missing enumerating methods for moosegroup
moosetechnology · May 23, 2024 · 8c7cc68 · 8c7cc68
2 parents 50ab554 + 945a48c
commit 8c7cc68
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/src/Moose-Core/MooseAbstractGroup.class.st b/src/Moose-Core/MooseAbstractGroup.class.st
@@ -301,12 +301,29 @@ MooseAbstractGroup >> detect: aBlock ifFound: anotherBlock [
 	^ self entities detect: aBlock ifFound: anotherBlock
 ]
 
+{ #category : #enumerating }
+MooseAbstractGroup >> detect: aBlock ifFound: foundBlock ifNone: noneBlock [
+
+	^ self entities 
+		detect:  aBlock
+		ifFound: foundBlock
+		ifNone:  noneBlock
+]
+
 { #category : #enumerating }
 MooseAbstractGroup >> detect: aBlock ifNone: anotherBlock [
 
 	^ self entities detect: aBlock ifNone: anotherBlock
 ]
 
+{ #category : #enumerating }
+MooseAbstractGroup >> detect: aBlock ifOne: anotherBlock [
+
+	^ self entities
+		detect: aBlock
+		ifOne:  anotherBlock
+]
+
 { #category : #enumerating }
 MooseAbstractGroup >> detectMax: aString [