diff --git a/src/GToolkit-Inspector/GtInspectorStep.class.st b/src/GToolkit-Inspector/GtInspectorStep.class.st new file mode 100644 index 00000000..66ad2424 --- /dev/null +++ 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 new file mode 100644 index 00000000..5c0ecc64 --- /dev/null +++ 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) +]