Re-add #click since #testClick was likely a mistake from some refactoring

Author: tinchodias

src/Bloc-Scripter/TBlDevScripterActionStep.trait.st

@@ -8,6 +8,11 @@ Trait {
 	#category : #'Bloc-Scripter-Scripter'
 }
 
+{ #category : #'steps - interactions' }
+TBlDevScripterActionStep >> click [
+	^ self addStep: (BlDevScripterClickStep new referenceSender)
+]
+
 { #category : #'steps - other' }
 TBlDevScripterActionStep >> do [
 	^ self addStep: BlDevScripterActionStep new referenceSender
@@ -116,7 +121,12 @@ TBlDevScripterActionStep >> substeps: aLabel do: anOneArgBlock [
 
 { #category : #'steps - interactions' }
 TBlDevScripterActionStep >> testClick [
-	^ self addStep: (BlDevScripterClickStep new referenceSender)
+
+	self
+		deprecated: 'Use #click'
+		transformWith: '`@rcv testClick' -> '`@rcv click'.
+
+	^ self click
 ]
 
 { #category : #'steps - interactions' }

src/Bloc-Scripter/TBlDevScripterCheckStep.trait.st

@@ -27,6 +27,13 @@ TBlDevScripterCheckStep >> childrenCount: aNumber [
 		referenceSender)
 ]
 
+{ #category : #'steps - checks' }
+TBlDevScripterCheckStep >> click [
+	^ self addStep: (BlDevScripterCheckFiredEventsStep new 
+		event: BlClickEvent;
+		referenceSender)
+]
+
 { #category : #'steps - checks' }
 TBlDevScripterCheckStep >> do: anOneArgBlock [
 	^ self addStep: (BlDevScripterCheckDoStep new block: anOneArgBlock; referenceSender)
@@ -80,11 +87,14 @@ TBlDevScripterCheckStep >> satisfies: anOneArgBlock description: aDescriptionOne
 		referenceSender)
 ]
 
-{ #category : #'steps - checks' }
+{ #category : #tests }
 TBlDevScripterCheckStep >> testClick [
-	^ self addStep: (BlDevScripterCheckFiredEventsStep new 
-		event: BlClickEvent;
-		referenceSender)
+
+	self
+		deprecated: 'Use #click'
+		transformWith: '`@rcv testClick' -> '`@rcv click'.
+
+	^ self click
 ]
 
 { #category : #'steps - checks' }