From 47d8f43ab20d39c0216e130bf09e8b5a1af2fa5f Mon Sep 17 00:00:00 2001
From: Martin Dias <tinchodias@gmail.com>
Date: Fri, 19 Jan 2024 18:22:04 -0300
Subject: [PATCH] Inline several "BlDevScripter new" and remove an empty test
 class

---
 .../BlElementBoundsByScripterExamples.class.st       |  9 +--------
 .../BlEventProcessorExamplesTest.class.st            | 12 ------------
 src/Bloc-Examples/BlFocusProcessorExamples.class.st  |  6 +++---
 .../BlMouseProcessorClickExamples.class.st           |  2 +-
 .../BlMouseProcessorEnterLeaveExamples.class.st      |  2 +-
 src/Bloc-Examples/BlMouseProcessorExamples.class.st  |  2 +-
 6 files changed, 7 insertions(+), 26 deletions(-)
 delete mode 100644 src/Bloc-Examples/BlEventProcessorExamplesTest.class.st

diff --git a/src/Bloc-Examples/BlElementBoundsByScripterExamples.class.st b/src/Bloc-Examples/BlElementBoundsByScripterExamples.class.st
index dab17681c..0a6339f03 100644
--- a/src/Bloc-Examples/BlElementBoundsByScripterExamples.class.st
+++ b/src/Bloc-Examples/BlElementBoundsByScripterExamples.class.st
@@ -9,7 +9,7 @@ BlElementBoundsByScripterExamples >> bounds_in_space_0 [
 
 	<sampleInstance>
 	| aScripter |
-	aScripter := self scripter.
+	aScripter := BlDevScripter new.
 	aScripter element: self bounds_in_space_element_container.
 
 	^ aScripter syncContinue
@@ -158,10 +158,3 @@ BlElementBoundsByScripterExamples >> bounds_in_space_element_extent [
 	<sampleInstance>
 	^ 500 @ 400
 ]
-
-{ #category : #'examples - scripter' }
-BlElementBoundsByScripterExamples >> scripter [
-
-	<sampleInstance>
-	^ BlDevScripter new
-]
diff --git a/src/Bloc-Examples/BlEventProcessorExamplesTest.class.st b/src/Bloc-Examples/BlEventProcessorExamplesTest.class.st
deleted file mode 100644
index 885de216c..000000000
--- a/src/Bloc-Examples/BlEventProcessorExamplesTest.class.st
+++ /dev/null
@@ -1,12 +0,0 @@
-Class {
-	#name : #BlEventProcessorExamplesTest,
-	#superclass : #TestCase,
-	#category : #'Bloc-Examples-Event'
-}
-
-{ #category : #'examples - scripter' }
-BlEventProcessorExamplesTest >> scripter [
-
-	<sampleInstance>
-	^ BlDevScripter new
-]
diff --git a/src/Bloc-Examples/BlFocusProcessorExamples.class.st b/src/Bloc-Examples/BlFocusProcessorExamples.class.st
index ae534646e..c3f2c0926 100644
--- a/src/Bloc-Examples/BlFocusProcessorExamples.class.st
+++ b/src/Bloc-Examples/BlFocusProcessorExamples.class.st
@@ -1,6 +1,6 @@
 Class {
 	#name : #BlFocusProcessorExamples,
-	#superclass : #BlEventProcessorExamplesTest,
+	#superclass : #TestCase,
 	#category : #'Bloc-Examples-Event'
 }
 
@@ -63,7 +63,7 @@ BlFocusProcessorExamples >> loseFocus_01_give_focus_to_child_1 [
 
 	<sampleInstance>
 	| aScripter |
-	aScripter := self scripter.
+	aScripter := BlDevScripter new.
 	aScripter element: self scripterElement.
 
 	aScripter substeps: 'Give focus to child-1' do: [ :aStep |
@@ -380,7 +380,7 @@ BlFocusProcessorExamples >> requestFocus_01_parent [
 
 	<sampleInstance>
 	| aScripter |
-	aScripter := self scripter.
+	aScripter := BlDevScripter new.
 	aScripter element: self scripterElement.
 
 	aScripter substeps: 'Request focus on parent' do: [ :aStep |
diff --git a/src/Bloc-Examples/BlMouseProcessorClickExamples.class.st b/src/Bloc-Examples/BlMouseProcessorClickExamples.class.st
index 8dbb017d9..83be9e9bf 100644
--- a/src/Bloc-Examples/BlMouseProcessorClickExamples.class.st
+++ b/src/Bloc-Examples/BlMouseProcessorClickExamples.class.st
@@ -82,7 +82,7 @@ BlMouseProcessorClickExamples >> mouseEnter [
 
 	<sampleInstance>
 	| aScripter |
-	aScripter := self scripter.
+	aScripter := BlDevScripter new.
 	aScripter element: self scripterElement.
 
 	aScripter substeps: 'Mouse Enter' do: [ :aStep |
diff --git a/src/Bloc-Examples/BlMouseProcessorEnterLeaveExamples.class.st b/src/Bloc-Examples/BlMouseProcessorEnterLeaveExamples.class.st
index 5a506e81b..b7323cb8f 100644
--- a/src/Bloc-Examples/BlMouseProcessorEnterLeaveExamples.class.st
+++ b/src/Bloc-Examples/BlMouseProcessorEnterLeaveExamples.class.st
@@ -9,7 +9,7 @@ BlMouseProcessorEnterLeaveExamples >> mouseEnter [
 
 	<sampleInstance>
 	| aScripter |
-	aScripter := self scripter.
+	aScripter := BlDevScripter new.
 	aScripter element: self scripterElement.
 
 	aScripter substeps: 'Mouse Enter' do: [ :aStep |
diff --git a/src/Bloc-Examples/BlMouseProcessorExamples.class.st b/src/Bloc-Examples/BlMouseProcessorExamples.class.st
index fcaf16aa0..31a89753d 100644
--- a/src/Bloc-Examples/BlMouseProcessorExamples.class.st
+++ b/src/Bloc-Examples/BlMouseProcessorExamples.class.st
@@ -4,7 +4,7 @@ I contain examples-tests of mouse processor
 "
 Class {
 	#name : #BlMouseProcessorExamples,
-	#superclass : #BlEventProcessorExamplesTest,
+	#superclass : #TestCase,
 	#category : #'Bloc-Examples-Event'
 }