Reconvert again to Tonel v1

pharo-graphics · Jan 18, 2024 · ddbb949 · ddbb949
1 parent 49b547a
commit ddbb949
Show file tree

Hide file tree

Showing 384 changed files with 5,527 additions and 6,225 deletions.
diff --git a/src/Bloc-Alexandrie-Tests/BAHitFormFactory.class.st b/src/Bloc-Alexandrie-Tests/BAHitFormFactory.class.st
@@ -2,14 +2,12 @@
 My only purpose is creating a Form from a BlSpace, where each pixel tells what BlElement (or nil) would be hitted by the mouse pointer.
 "
 Class {
-	#name : 'BAHitFormFactory',
-	#superclass : 'Object',
-	#category : 'Bloc-Alexandrie-Tests-Utilities',
-	#package : 'Bloc-Alexandrie-Tests',
-	#tag : 'Utilities'
+	#name : #BAHitFormFactory,
+	#superclass : #Object,
+	#category : #'Bloc-Alexandrie-Tests-Utilities'
 }
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 BAHitFormFactory class >> newFormFor: aSpace [
 
 	| allElements colors colorByElement aForm |

diff --git a/src/Bloc-Alexandrie-Tests/BAHitTest.class.st b/src/Bloc-Alexandrie-Tests/BAHitTest.class.st
@@ -1,59 +1,57 @@
 Class {
-	#name : 'BAHitTest',
-	#superclass : 'AePixelMatchTest',
-	#category : 'Bloc-Alexandrie-Tests-Base',
-	#package : 'Bloc-Alexandrie-Tests',
-	#tag : 'Base'
+	#name : #BAHitTest,
+	#superclass : #AePixelMatchTest,
+	#category : #'Bloc-Alexandrie-Tests-Base'
 }
 
-{ #category : 'exporting' }
+{ #category : #exporting }
 BAHitTest class >> allFormSelectors [
 
 	^ BlSpaceFixture allFixtureSelectors
 ]
 
-{ #category : 'convenience' }
+{ #category : #convenience }
 BAHitTest class >> exportAll [
 	<script: 'super exportAll' >
 
 	super exportAll
 ]
 
-{ #category : 'convenience' }
+{ #category : #convenience }
 BAHitTest class >> inspectAll [
 	<script: 'super inspectAll'>
 
 	super inspectAll
 ]
 
-{ #category : 'convenience' }
+{ #category : #convenience }
 BAHitTest class >> inspectMismatches [
 	<script: 'super inspectMismatches'>
 
 	super inspectMismatches
 ]
 
-{ #category : 'tests' }
+{ #category : #tests }
 BAHitTest >> actualForm [
 
 	^ self hitFormFor: formSelector host: BlOSWindowSDL2Host new
 ]
 
-{ #category : 'tests' }
+{ #category : #tests }
 BAHitTest >> expectedFormsDirectory [
 
 	| repo |
 	repo := IceRepository registry detect: [ :each | each name asLowercase = 'bloc' ].
 	^ repo location / 'tests' / 'hit'
 ]
 
-{ #category : 'tests' }
+{ #category : #tests }
 BAHitTest >> formBehavior [
 
 	^ BlSpaceFixture new
 ]
 
-{ #category : 'tests' }
+{ #category : #tests }
 BAHitTest >> hitFormFor: aSymbol host: aHost [
 
 	| aSpace |

diff --git a/src/Bloc-Alexandrie-Tests/BARenderTest.class.st b/src/Bloc-Alexandrie-Tests/BARenderTest.class.st
@@ -1,39 +1,37 @@
 Class {
-	#name : 'BARenderTest',
-	#superclass : 'AePixelMatchTest',
-	#category : 'Bloc-Alexandrie-Tests-Base',
-	#package : 'Bloc-Alexandrie-Tests',
-	#tag : 'Base'
+	#name : #BARenderTest,
+	#superclass : #AePixelMatchTest,
+	#category : #'Bloc-Alexandrie-Tests-Base'
 }
 
-{ #category : 'exporting' }
+{ #category : #exporting }
 BARenderTest class >> allFormSelectors [
 
 	^ BlSpaceFixture allFixtureSelectors
 ]
 
-{ #category : 'convenience' }
+{ #category : #convenience }
 BARenderTest class >> exportAll [
 	<script: 'super exportAll' >
 
 	super exportAll
 ]
 
-{ #category : 'convenience' }
+{ #category : #convenience }
 BARenderTest class >> inspectAll [
 	<script: 'super inspectAll'>
 
 	super inspectAll
 ]
 
-{ #category : 'convenience' }
+{ #category : #convenience }
 BARenderTest class >> inspectMismatches [
 	<script: 'super inspectMismatches'>
 
 	super inspectMismatches
 ]
 
-{ #category : 'hooks' }
+{ #category : #hooks }
 BARenderTest >> actualForm [
 
 	| aSpace |
@@ -44,15 +42,15 @@ BARenderTest >> actualForm [
 	^ aSpace aeAsForm
 ]
 
-{ #category : 'tests' }
+{ #category : #tests }
 BARenderTest >> expectedFormsDirectory [
 
 	| repo |
 	repo := IceRepository registry detect: [ :each | each name asLowercase = 'bloc' ].
 	^ repo location / 'tests' / 'render'
 ]
 
-{ #category : 'tests' }
+{ #category : #tests }
 BARenderTest >> formBehavior [
 
 	^ BlSpaceFixture new

diff --git a/src/Bloc-Alexandrie-Tests/BATextMeasurerTest.class.st b/src/Bloc-Alexandrie-Tests/BATextMeasurerTest.class.st
@@ -1,17 +1,16 @@
 Class {
-	#name : 'BATextMeasurerTest',
-	#superclass : 'BlTextParagraphExamplesTest',
-	#category : 'Bloc-Alexandrie-Tests',
-	#package : 'Bloc-Alexandrie-Tests'
+	#name : #BATextMeasurerTest,
+	#superclass : #BlTextParagraphExamplesTest,
+	#category : #'Bloc-Alexandrie-Tests'
 }
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 BATextMeasurerTest >> realMeasurer [
 
 	^ BAOffscreen instance textMeasurer
 ]
 
-{ #category : 'geometry - 100@100.' }
+{ #category : #'geometry - 100@100.' }
 BATextMeasurerTest >> testIndexAtBetweenAllCharactersInRealPointWithDot [
 
 	| aParagraph theIndices |
@@ -26,7 +25,7 @@ BATextMeasurerTest >> testIndexAtBetweenAllCharactersInRealPointWithDot [
 	self assert: theIndices equals: (0 to: aParagraph text size) asArray
 ]
 
-{ #category : 'geometry - tab tab' }
+{ #category : #'geometry - tab tab' }
 BATextMeasurerTest >> testIndexAtBetweenAllCharactersInRealTabTab [
 
 	| aParagraph theIndices |
@@ -41,7 +40,7 @@ BATextMeasurerTest >> testIndexAtBetweenAllCharactersInRealTabTab [
 	self assert: theIndices equals: #(0 2 2)
 ]
 
-{ #category : 'geometry - HelloWorld' }
+{ #category : #'geometry - HelloWorld' }
 BATextMeasurerTest >> testIndexAtBetweenFirstAndSecondCharacterInRealHelloWorld [
 
 	| aParagraph anIndex aPosition |
@@ -54,7 +53,7 @@ BATextMeasurerTest >> testIndexAtBetweenFirstAndSecondCharacterInRealHelloWorld
 	self assert: anIndex equals: 1
 ]
 
-{ #category : 'geometry - HelloWorld' }
+{ #category : #'geometry - HelloWorld' }
 BATextMeasurerTest >> testIndexAtBetweenSeventhAndEighthCharacterInRealHelloWorld [
 
 	| aParagraph anIndex aPosition |
@@ -67,7 +66,7 @@ BATextMeasurerTest >> testIndexAtBetweenSeventhAndEighthCharacterInRealHelloWorl
 	self assert: anIndex equals: 7
 ]
 
-{ #category : 'paragraph - measuring' }
+{ #category : #'paragraph - measuring' }
 BATextMeasurerTest >> testRealMeasuredHelloWorld [
 
 	| aParagraph aLine aFirstSpan aSecondSpan aText aHello aWorld |

diff --git a/src/Bloc-Alexandrie-Tests/BlCompositeBackgroundTest.extension.st b/src/Bloc-Alexandrie-Tests/BlCompositeBackgroundTest.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : 'BlCompositeBackgroundTest' }
+Extension { #name : #BlCompositeBackgroundTest }
 
-{ #category : '*Bloc-Alexandrie-Tests' }
+{ #category : #'*Bloc-Alexandrie-Tests' }
 BlCompositeBackgroundTest >> testAeApplyTo [
 
 	| space background blElement backgroundList |