add BrEditorStep [feenkcom/gtoolkit#3941]

feenkcom · Aug 7, 2024 · 48f456c · 48f456c
1 parent 426db36
commit 48f456c
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 0 deletions.
diff --git a/src/Brick-Editor-Examples/BrEditorStep.class.st b/src/Brick-Editor-Examples/BrEditorStep.class.st
@@ -0,0 +1,18 @@
+"
+I provide {{gtClass:BlScripter}} {{gtClass:BrEditor}} steps. 
+"
+Class {
+	#name : #BrEditorStep,
+	#superclass : #BlDevScripterToolActionStep,
+	#category : #'Brick-Editor-Examples-Scripter'
+}
+
+{ #category : #'steps - interactions' }
+BrEditorStep >> selectAll [
+	^ self do
+		referenceSender;
+		label: 'Select all editor text';
+		block: [ :anEditor | anEditor selecter all; select ];
+		onParentStepTarget: self;
+		onThisOrBreadthFirstChildOfKind: BrEditor
+]
diff --git a/src/Brick-Editor-Examples/TBlDevScripterActionStep.extension.st b/src/Brick-Editor-Examples/TBlDevScripterActionStep.extension.st
@@ -0,0 +1,9 @@
+Extension { #name : #TBlDevScripterActionStep }
+
+{ #category : #'*Brick-Editor-Examples' }
+TBlDevScripterActionStep >> editor [
+	^ self
+		addStep: (BrEditorStep new
+				label: 'Editor';
+				referenceSender)
+]