add GtInspectorStep [feenkcom/gtoolkit#3941]

feenkcom · Aug 7, 2024 · c5fb1d9 · c5fb1d9
1 parent 84acc72
commit c5fb1d9
Show file tree

Hide file tree

Showing 2 changed files with 44 additions and 0 deletions.
diff --git a/src/GToolkit-Inspector/GtInspectorStep.class.st b/src/GToolkit-Inspector/GtInspectorStep.class.st
@@ -0,0 +1,21 @@
+Class {
+	#name : #GtInspectorStep,
+	#superclass : #BlDevScripterToolActionStep,
+	#category : #'GToolkit-Inspector-Scripter'
+}
+
+{ #category : #'steps - interactions' }
+GtInspectorStep >> clickOnInspectButton [
+	^ self click
+		referenceSender;
+		label: 'Click on play and inspect button';
+		// GtInspectorInspectButtonId
+]
+
+{ #category : #'steps - interactions' }
+GtInspectorStep >> dragPlaygroundVerticallyBy: aNumber [
+	^ (self mouseDragBy: 0 @ aNumber)
+		label: ('Drag inspector playground by {1}' format: { aNumber });
+		referenceSender;
+		// LeInspectorPlaygroundResizerId
+]
diff --git a/src/GToolkit-Inspector/GtPagerStep.extension.st b/src/GToolkit-Inspector/GtPagerStep.extension.st
@@ -0,0 +1,23 @@
+Extension { #name : #GtPagerStep }
+
+{ #category : #'*GToolkit-Inspector' }
+GtPagerStep >> clickOnInspectorInspectButtonAtPage: anIndex [
+	^ self inspectorStep
+		label: ('Inspector at page no. {1}' format: { anIndex });
+		referenceSender;
+		clickOnInspectButton;
+		onParentStepTarget: self;
+		onThisOrBreadthFirstChildOfKind: GtPager;
+		// (GtPagerPageElementId indexed: anIndex)
+]
+
+{ #category : #'*GToolkit-Inspector' }
+GtPagerStep >> dragInspectorPlaygroundAtPage: anIndex verticallyBy: aNumber [
+	^ self inspectorStep
+		label: ('Inspector at page no. {1}' format: { anIndex });
+		referenceSender;
+		dragPlaygroundVerticallyBy: aNumber;
+		onParentStepTarget: self;
+		onThisOrBreadthFirstChildOfKind: GtPager;
+		// (GtPagerPageElementId indexed: anIndex)
+]