Inline several "BlDevScripter new" and remove an empty test class

pharo-graphics · Jan 19, 2024 · 47d8f43 · 47d8f43
1 parent 0a9695e
commit 47d8f43
Show file tree

Hide file tree

Showing 6 changed files with 7 additions and 26 deletions.
diff --git 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
diff --git 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
@@ -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
@@ -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
@@ -4,7 +4,7 @@ I contain examples-tests of mouse processor
 "
 Class {
 	#name : #BlMouseProcessorExamples,
-	#superclass : #BlEventProcessorExamplesTest,
+	#superclass : #TestCase,
 	#category : #'Bloc-Examples-Event'
 }