Migrate to tonel v3

src/.properties

@@ -1,4 +1,3 @@
 {
-	#format : #tonel,
-	#version: #'1.0'
+	#format : #tonel
 }

src/BaselineOfFame/BaselineOfFame.class.st

@@ -2,12 +2,13 @@
 Baseline for the Fame project.
 "
 Class {
-	#name : #BaselineOfFame,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfFame
+	#name : 'BaselineOfFame',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfFame',
+	#package : 'BaselineOfFame'
 }
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfFame >> baseline: spec [
 
 	<baseline>
@@ -51,7 +52,7 @@ BaselineOfFame >> baseline: spec [
 			group: 'Tests' with: #( 'Fame-Tests' ) ]
 ]
 
-{ #category : #dependencies }
+{ #category : 'dependencies' }
 BaselineOfFame >> hashtable: spec [
 	spec
 		baseline: 'Hashtable'
@@ -60,7 +61,7 @@ BaselineOfFame >> hashtable: spec [
 				repository: 'github://pharo-contributions/Hashtable:v1.x.x/src' ]
 ]
 
-{ #category : #dependencies }
+{ #category : 'dependencies' }
 BaselineOfFame >> iterators: spec [
 
 	spec baseline: 'Iterators' with: [
@@ -69,7 +70,7 @@ BaselineOfFame >> iterators: spec [
 			loads: #( 'core' 'collections' 'shell-dsl' ) ]
 ]
 
-{ #category : #dependencies }
+{ #category : 'dependencies' }
 BaselineOfFame >> mocketry: spec [
 
 	spec baseline: 'Mocketry' with: [
@@ -78,23 +79,23 @@ BaselineOfFame >> mocketry: spec [
 			repository: 'github://dionisiydk/Mocketry:v7.0.2' ]
 ]
 
-{ #category : #dependencies }
+{ #category : 'dependencies' }
 BaselineOfFame >> pharoBackwardCompatibility: spec [
 	spec baseline: 'PharoBackwardCompatibility' with: [ spec repository: 'github://jecisc/PharoBackwardCompatibility:v1.x.x/src' ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BaselineOfFame >> pharoVersionsFrom: aVersion [
 
 	^ (aVersion to: SystemVersion current major) collect: [ :v | ('pharo' , v asString , '.x') asSymbol ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BaselineOfFame >> projectClass [
 	^ MetacelloCypressBaselineProject
 ]
 
-{ #category : #dependencies }
+{ #category : 'dependencies' }
 BaselineOfFame >> treeQuery: spec [
 	spec baseline: 'TreeQuery' with: [ 
 		spec

src/BaselineOfFame/package.st

@@ -1 +1 @@
-Package { #name : #BaselineOfFame }
+Package { #name : 'BaselineOfFame' }

src/Fame-Core/Behavior.extension.st

@@ -1,12 +1,12 @@
-Extension { #name : #Behavior }
+Extension { #name : 'Behavior' }
 
-{ #category : #'*Fame-Core' }
+{ #category : '*Fame-Core' }
 Behavior >> allGeneratedTraits [
 
 	^ self allTraits select: #isMetamodelEntity
 ]
 
-{ #category : #'*Fame-Core' }
+{ #category : '*Fame-Core' }
 Behavior >> localGeneratedTraits [
 
 	^ self traits select: #isMetamodelEntity

src/Fame-Core/Dictionary.extension.st

@@ -1,6 +1,6 @@
-Extension { #name : #Dictionary }
+Extension { #name : 'Dictionary' }
 
-{ #category : #'*Fame-Core' }
+{ #category : '*Fame-Core' }
 Dictionary >> fmModelAt: key [
 	"I exist only for performance reasons. I avoid to create a #ifAbsent: block. In moose query we call this so much that the creation cost of the block and its garbage collection is too high :("
 

src/Fame-Core/FM3Boolean.class.st

@@ -10,12 +10,14 @@ Examples
 	FM3Boolean instance
 "
 Class {
-	#name : #FM3Boolean,
-	#superclass : #FM3Primitive,
-	#category : #'Fame-Core-Model'
+	#name : 'FM3Boolean',
+	#superclass : 'FM3Primitive',
+	#category : 'Fame-Core-Model',
+	#package : 'Fame-Core',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Boolean class >> constantName [
 	^ #Boolean
 ]

src/Fame-Core/FM3Class.class.st

@@ -29,58 +29,60 @@ Internal Representation and Key Implementation Points.
 	traits:					<aCollection>		A collection of FM3Class representing the traits I am using.
 "
 Class {
-	#name : #FM3Class,
-	#superclass : #FM3Type,
+	#name : 'FM3Class',
+	#superclass : 'FM3Type',
 	#instVars : [
 		'isAbstract',
 		'superclass',
 		'implementingClass',
 		'subclasses'
 	],
-	#category : #'Fame-Core-Model'
+	#category : 'Fame-Core-Model',
+	#package : 'Fame-Core',
+	#tag : 'Model'
 }
 
-{ #category : #meta }
+{ #category : 'meta' }
 FM3Class class >> annotation [
 	<FMClass: #Class super: #FM3Type>
 	<package: #FM3>
 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class class >> defaultSuperclass [
 	^ FM3Object instance
 ]
 
-{ #category : #visiting }
+{ #category : 'visiting' }
 FM3Class >> accept: aVisitor [
 	^ aVisitor visitClass: self
 ]
 
-{ #category : #enumerating }
+{ #category : 'enumerating' }
 FM3Class >> allPropertiesDo: block [
 	properties do: block.
 	self superclass ifNotNil: [ :class | class allPropertiesDo: block ].
 	self traits do: [ :trait | trait allPropertiesDo: block ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> allSubclasses [
 	| all |
 	all := OrderedCollection new.
 	self allSubclassesDo: [ :each | all add: each ].
 	^ all
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> allSubclassesDo: aBlock [
 	self subclasses
 		do: [ :each | 
 			aBlock value: each.
 			each allSubclassesDo: aBlock ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> allSuperclasses [
 	| mmclass superclasses |
 	superclasses := OrderedCollection new.
@@ -92,132 +94,132 @@ FM3Class >> allSuperclasses [
 	^ superclasses
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> allSuperclassesDo: aBlock [
 	self allSuperclasses do: [ :each | aBlock value: each ]
 ]
 
-{ #category : #'accessing-query' }
+{ #category : 'accessing-query' }
 FM3Class >> complexProperties [
 	^ self properties reject: [ :attr | attr type isPrimitive ]
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 FM3Class >> createInstance [
 	^ implementingClass
 		ifNil: [ FMRuntimeElement new description: self ]
 		ifNotNil: [ implementingClass new ]
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 FM3Class >> hasPackage [
 	^ package isNotNil
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 FM3Class >> hasSuperclass [
 	^ superclass isNotNil
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> implementingClass [
 	^ implementingClass
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> implementingClass: smalltalkClass [
 	implementingClass := smalltalkClass
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> inheritsFrom: aClass [
 	self allSuperclassesDo: [ :each | each = aClass ifTrue: [ ^ true ] ].
 	^ false
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 FM3Class >> initialize [
 	super initialize.
 	isAbstract := false.
 	superclass := self class defaultSuperclass.
 	subclasses := FMMultivalueLink on: self opposite: #superclass:
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 FM3Class >> isAbstract [
 	<FMProperty: #abstract type: #Boolean defaultValue: false>
 	^ isAbstract
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> isAbstract: aBoolean [
 	isAbstract := aBoolean
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 FM3Class >> isBuiltIn [
 	^ self isPrimitive or: [ self isRoot ]
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 FM3Class >> isConstant [
 	^ false
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 FM3Class >> isFM3Class [
 	^ true
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 FM3Class >> isPrimitive [
 	<FMProperty: #primitive type: #Boolean defaultValue: false>
 	<derived>
 	^ false
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 FM3Class >> isRoot [
 	<FMProperty: #root type: #Boolean defaultValue: false>
 	<derived>
 	^ false
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> owner [
 	^ self package
 ]
 
-{ #category : #'accessing-query' }
+{ #category : 'accessing-query' }
 FM3Class >> ownerProperties [
 	^ self allProperties select: #isContainer
 ]
 
-{ #category : #'accessing-query' }
+{ #category : 'accessing-query' }
 FM3Class >> primitiveProperties [
 	^ self properties select: [ :attr | attr type isPrimitive ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> subclasses [ 
 	<FMProperty: #subclasses type: #FM3Class opposite: #superclass>
 	<derived>
 	<multivalued>
 	^subclasses
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> subclasses: anObject [
 	subclasses value: anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> superclass [
 	<FMProperty: #superclass type: #FM3Class opposite: #subclasses>
 	^ superclass
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> superclass: newClass [
 	superclass := FMMultivalueLink
 		on: self
@@ -226,14 +228,14 @@ FM3Class >> superclass: newClass [
 		to: newClass
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> withAllSubclasses [
 	^ self allSubclasses
 		add: self;
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FM3Class >> withAllSuperclasses [
 	^ self allSuperclasses
 		add: self;