Add #withIndexDo: to groups

feenkcom · Mar 27, 2024 · 04014a9 · 04014a9
1 parent 37f384a
commit 04014a9
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 6 deletions.
diff --git 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
@@ -265,3 +265,8 @@ TGtGroup >> size [
 TGtGroup >> sorted: aPredicate [
 	^ self items sorted: aPredicate
 ]
+
+{ #category : #accessing }
+TGtGroup >> withIndexDo: aBlock [
+	^ self items withIndexDo: aBlock
+]