From 04014a99de68ebc4272a28f48e9d066f4308c39d Mon Sep 17 00:00:00 2001
From: Veit Heller <veit@veitheller.de>
Date: Wed, 27 Mar 2024 12:30:16 +0100
Subject: [PATCH] Add `#withIndexDo:` to groups

---
 .../GtSubprocessWithInMemoryOutput.class.st          | 12 ++++++------
 src/GToolkit-Utility-System/TGtGroup.trait.st        |  5 +++++
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/src/GToolkit-Utility-System/GtSubprocessWithInMemoryOutput.class.st b/src/GToolkit-Utility-System/GtSubprocessWithInMemoryOutput.class.st
index 474013c..72f3116 100644
--- a/src/GToolkit-Utility-System/GtSubprocessWithInMemoryOutput.class.st
+++ b/src/GToolkit-Utility-System/GtSubprocessWithInMemoryOutput.class.st
@@ -153,12 +153,6 @@ GtSubprocessWithInMemoryOutput >> commandLineString [
 			separatedBy: [ stream nextPut: Character space ] ]
 ]
 
-{ #category : #accessing }
-GtSubprocessWithInMemoryOutput >> environmentAt: key put: value [
-
-	self envVariables at: key put: value.
-]
-
 { #category : #'env building' }
 GtSubprocessWithInMemoryOutput >> envVariables [
 	"Answer the dictionary of environment variables that will be passed to the sub-process.
@@ -167,6 +161,12 @@ GtSubprocessWithInMemoryOutput >> envVariables [
 	^ envVariables ifNil: [ envVariables := Dictionary new ]
 ]
 
+{ #category : #accessing }
+GtSubprocessWithInMemoryOutput >> environmentAt: key put: value [
+
+	self envVariables at: key put: value.
+]
+
 { #category : #accessing }
 GtSubprocessWithInMemoryOutput >> errorBlock [
 	^ errorBlock
diff --git a/src/GToolkit-Utility-System/TGtGroup.trait.st b/src/GToolkit-Utility-System/TGtGroup.trait.st
index 561f646..e0c7754 100644
--- a/src/GToolkit-Utility-System/TGtGroup.trait.st
+++ b/src/GToolkit-Utility-System/TGtGroup.trait.st
@@ -265,3 +265,8 @@ TGtGroup >> size [
 TGtGroup >> sorted: aPredicate [
 	^ self items sorted: aPredicate
 ]
+
+{ #category : #accessing }
+TGtGroup >> withIndexDo: aBlock [
+	^ self items withIndexDo: aBlock
+]