improve GtPharoMethodCoderStep>>#typeText: [feenkcom/gtoolkit#4768]

JurajKubelka · JurajKubelka · commit 2c3ae5dbf86a · 2025-10-20T09:17:52.000-03:00
diff --git a/src/GToolkit-Pharo-Coder-Method-Examples/GtPharoMethodCoderStep.class.st b/src/GToolkit-Pharo-Coder-Method-Examples/GtPharoMethodCoderStep.class.st
@@ -534,6 +534,17 @@ GtPharoMethodCoderStep >> coderViewModelDo: aBlock [
 		onParentStepTarget: self
 ]
 
+{ #category : #'steps - interactions' }
+GtPharoMethodCoderStep >> editorDo: aBlock [
+	^ self do
+		referenceSender;
+		label: 'Access editor';
+		block: aBlock;
+		onParentStepTarget: self;
+		onThisOrDeepChildElementId: GtSourceCoderEditorId;
+		onTopMost
+]
+
 { #category : #'steps - interactions' }
 GtPharoMethodCoderStep >> editorTextDo: aBlock [
 	^ self do
@@ -715,13 +726,29 @@ GtPharoMethodCoderStep >> typeText: aString [
 	"The event is eventually handled in {{gtMethod:BrTextEditorInsertionHandler>>#textInputEvent:}}. 
 	Note that all characters must be printable, otherwise the event is ignored."
 
-	^ self type
-		referenceSender;
-		label: ('Type text: {1}' format: { aString });
-		text: aString;
-		onParentStepTarget: self;
-		onThisOrDeepChildElementId: GtSourceCoderEditorId;
-		onTopMost
+	^ aString lines size = 1
+		ifTrue: [ self type
+				referenceSender;
+				label: ('Type text: {1}' format: {aString lines first});
+				text: aString;
+				onParentStepTarget: self;
+				onThisOrDeepChildElementId: GtSourceCoderEditorId;
+				onTopMost ]
+		ifFalse: [ self
+				substeps2: 'Type lines'
+				do: [ :eachStep | 
+					aString lines
+						do: [ :eachLine | 
+							eachStep type
+								referenceSender;
+								label: ('Type text: {1}' format: {aString lines first});
+								text: eachLine;
+								onParentStepTarget: eachStep;
+								onThisOrDeepChildElementId: GtSourceCoderEditorId;
+								onTopMost ]
+						separatedBy: [ eachStep keyPress
+								label: 'Press return';
+								key: BlKeyboardKey return ] ] ]
 ]
 
 { #category : #'steps - interactions' }
