Convert to Tonel v1

Same script (change default writer before)
pharo-graphics · Nov 4, 2023 · 596db58 · 596db58
1 parent faa454f
commit 596db58
Show file tree

Hide file tree

Showing 1,586 changed files with 18,257 additions and 20,953 deletions.
diff --git a/src/BaselineOfBloc/BaselineOfBloc.class.st b/src/BaselineOfBloc/BaselineOfBloc.class.st
@@ -8,13 +8,12 @@ See BaselineOfBloc for more information about Bloc in general.
 
 "
 Class {
-	#name : 'BaselineOfBloc',
-	#superclass : 'BaselineOf',
-	#category : 'BaselineOfBloc',
-	#package : 'BaselineOfBloc'
+	#name : #BaselineOfBloc,
+	#superclass : #BaselineOf,
+	#category : #BaselineOfBloc
 }
 
-{ #category : 'baselines' }
+{ #category : #baselines }
 BaselineOfBloc >> baseline: spec [
 	<baseline>
 	spec

diff --git a/src/BaselineOfBloc/package.st b/src/BaselineOfBloc/package.st
@@ -1 +1 @@
-Package { #name : 'BaselineOfBloc' }
+Package { #name : #BaselineOfBloc }
diff --git a/src/Bloc-Alexandrie-Exporter/BAExporter.class.st b/src/Bloc-Alexandrie-Exporter/BAExporter.class.st
@@ -2,69 +2,68 @@
 I am an exporter of Bloc elements to certain output format, that each of my subclasses define.
 "
 Class {
-	#name : 'BAExporter',
-	#superclass : 'Object',
+	#name : #BAExporter,
+	#superclass : #Object,
 	#instVars : [
 		'element',
 		'scale',
 		'background'
 	],
-	#category : 'Bloc-Alexandrie-Exporter',
-	#package : 'Bloc-Alexandrie-Exporter'
+	#category : #'Bloc-Alexandrie-Exporter'
 }
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 BAExporter class >> form [
 	^ BAFormExporter new
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 BAExporter class >> jpg [
 	^ BAJpgExporter new
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 BAExporter class >> pdf [
 	^ BAPdfExporter new
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 BAExporter class >> png [
 	^ BAPngExporter new
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 BAExporter class >> svg [
 	^ BASvgExporter new
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAExporter >> background [
 
 	^ background
 ]
 
-{ #category : 'api - configuration' }
+{ #category : #'api - configuration' }
 BAExporter >> background: aColorOrPaint [
 
 	background := aColorOrPaint
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAExporter >> element [
 	"Return an element to be exported"
 
 	^ element
 ]
 
-{ #category : 'api - configuration' }
+{ #category : #'api - configuration' }
 BAExporter >> element: aBlElement [
 	"Specify an element to be exorted"
 
 	element := aBlElement
 ]
 
-{ #category : 'api - exporting' }
+{ #category : #'api - exporting' }
 BAExporter >> export [
 
 	| aCanvas aBounds |
@@ -83,35 +82,35 @@ BAExporter >> export [
 	^ self finishExport: aCanvas
 ]
 
-{ #category : 'api - exporting' }
+{ #category : #'api - exporting' }
 BAExporter >> finishExport: aeCanvas [
 	"Do finish the canvas and return the export result."
 
 	self subclassResponsibility
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 BAExporter >> initialize [
 	super initialize.
 
 	scale := 1.0.
 	background := Color transparent
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 BAExporter >> newCanvas: anExtent [
 	"Create a suitable canvas of a given size used for the export"
 
 	^ self subclassResponsibility
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAExporter >> scale [
 
 	^ scale
 ]
 
-{ #category : 'api - configuration' }
+{ #category : #'api - configuration' }
 BAExporter >> scale: aNumber [
 	"Scale horizontally and vertically by aNumber. Scale must be positive."
 

diff --git a/src/Bloc-Alexandrie-Exporter/BAFileExporter.class.st b/src/Bloc-Alexandrie-Exporter/BAFileExporter.class.st
@@ -4,30 +4,29 @@ I export a Bloc element to a file target.
 See my subclasses for different output formats.
 "
 Class {
-	#name : 'BAFileExporter',
-	#superclass : 'BAExporter',
+	#name : #BAFileExporter,
+	#superclass : #BAExporter,
 	#instVars : [
 		'target'
 	],
-	#category : 'Bloc-Alexandrie-Exporter',
-	#package : 'Bloc-Alexandrie-Exporter'
+	#category : #'Bloc-Alexandrie-Exporter'
 }
 
-{ #category : 'private' }
+{ #category : #private }
 BAFileExporter >> defaultTarget [
 
 	^ Smalltalk imageDirectory /
 		(self element class name, '-', self element hash asString, '.' , self extension)
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAFileExporter >> extension [
 	"Return a String representing default file extension to be used during export"
 
 	^ self subclassResponsibility
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAFileExporter >> fileName: aFileReference [
 
 	self
@@ -38,19 +37,19 @@ BAFileExporter >> fileName: aFileReference [
 	self target: aFileReference
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 BAFileExporter >> finishExport: aeCanvas [
 
 	^ target
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAFileExporter >> target [
 
 	^ target ifNil: [ target := self defaultTarget ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAFileExporter >> target: aFileReference [
 
 	target := aFileReference

diff --git a/src/Bloc-Alexandrie-Exporter/BAFormExporter.class.st b/src/Bloc-Alexandrie-Exporter/BAFormExporter.class.st
@@ -8,19 +8,18 @@ I export an element as a Form.
 
 "
 Class {
-	#name : 'BAFormExporter',
-	#superclass : 'BAExporter',
-	#category : 'Bloc-Alexandrie-Exporter',
-	#package : 'Bloc-Alexandrie-Exporter'
+	#name : #BAFormExporter,
+	#superclass : #BAExporter,
+	#category : #'Bloc-Alexandrie-Exporter'
 }
 
-{ #category : 'private' }
+{ #category : #private }
 BAFormExporter >> finishExport: aeCanvas [
 
 	^ aeCanvas asForm
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 BAFormExporter >> newCanvas: anExtent [
 
 	^ AeCanvas extent: anExtent

diff --git a/src/Bloc-Alexandrie-Exporter/BAJpgExporter.class.st b/src/Bloc-Alexandrie-Exporter/BAJpgExporter.class.st
@@ -16,23 +16,22 @@ element size: 400@200.
 
 "
 Class {
-	#name : 'BAJpgExporter',
-	#superclass : 'BAFileExporter',
+	#name : #BAJpgExporter,
+	#superclass : #BAFileExporter,
 	#instVars : [
 		'isProgressive',
 		'quality'
 	],
-	#category : 'Bloc-Alexandrie-Exporter',
-	#package : 'Bloc-Alexandrie-Exporter'
+	#category : #'Bloc-Alexandrie-Exporter'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAJpgExporter >> extension [
 
 	^ 'jpg'
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 BAJpgExporter >> finishExport: aCanvas [
 	"Answer a file reference to the exported JPG."
 
@@ -47,7 +46,7 @@ BAJpgExporter >> finishExport: aCanvas [
 	^ self target
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 BAJpgExporter >> initialize [
 
 	super initialize.
@@ -57,31 +56,31 @@ BAJpgExporter >> initialize [
 	background := Color white
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAJpgExporter >> isProgressive [
 
 	^ isProgressive
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAJpgExporter >> isProgressive: aBoolean [
 
 	isProgressive := aBoolean
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 BAJpgExporter >> newCanvas: anExtent [
 
 	^ AeCanvas extent: anExtent
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAJpgExporter >> quality [
 
 	^ quality
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAJpgExporter >> quality: aNumber [
 	"Quality must be between 0 and 100"
 

diff --git a/src/Bloc-Alexandrie-Exporter/BAPdfExporter.class.st b/src/Bloc-Alexandrie-Exporter/BAPdfExporter.class.st
@@ -16,19 +16,18 @@ element size: 400@200.
 
 "
 Class {
-	#name : 'BAPdfExporter',
-	#superclass : 'BAFileExporter',
-	#category : 'Bloc-Alexandrie-Exporter',
-	#package : 'Bloc-Alexandrie-Exporter'
+	#name : #BAPdfExporter,
+	#superclass : #BAFileExporter,
+	#category : #'Bloc-Alexandrie-Exporter'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAPdfExporter >> extension [
 
 	^ 'pdf'
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 BAPdfExporter >> finishExport: aCanvas [
 	"Answer a file reference to the exported PDF."
 
@@ -38,7 +37,7 @@ BAPdfExporter >> finishExport: aCanvas [
 	^ self target
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 BAPdfExporter >> newCanvas: anExtent [
 
 	| aSurface |

diff --git a/src/Bloc-Alexandrie-Exporter/BAPngExporter.class.st b/src/Bloc-Alexandrie-Exporter/BAPngExporter.class.st
@@ -16,19 +16,18 @@ element size: 400@200.
 
 "
 Class {
-	#name : 'BAPngExporter',
-	#superclass : 'BAFileExporter',
-	#category : 'Bloc-Alexandrie-Exporter',
-	#package : 'Bloc-Alexandrie-Exporter'
+	#name : #BAPngExporter,
+	#superclass : #BAFileExporter,
+	#category : #'Bloc-Alexandrie-Exporter'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BAPngExporter >> extension [
 
 	^ 'png'
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 BAPngExporter >> finishExport: aCanvas [
 	"Answer a file reference to the exported PNG."
 
@@ -39,7 +38,7 @@ BAPngExporter >> finishExport: aCanvas [
 	^ self target
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 BAPngExporter >> newCanvas: anExtent [
 
 	^ AeCanvas extent: anExtent
Original file line number	Diff line number	Diff line change
		@@ -1 +1 @@
		Package { #name : 'BaselineOfBloc' }
		Package { #name : #BaselineOfBloc }