Fixed Tonel to v1.0 and reverted files to it

magritte-metamodel · Jun 20, 2024 · 484ac1b · 484ac1b
1 parent ece4341
commit 484ac1b
Show file tree

Hide file tree

Showing 216 changed files with 486 additions and 534 deletions.
diff --git a/source/.properties b/source/.properties
@@ -1,3 +1,4 @@
 {
-	#format : #tonel
+	#format : #tonel,
+	#version: #'1.0'
 }
diff --git a/source/BaselineOfMagritte/BaselineOfMagritte.class.st b/source/BaselineOfMagritte/BaselineOfMagritte.class.st
@@ -1,11 +1,10 @@
 Class {
-	#name : 'BaselineOfMagritte',
-	#superclass : 'BaselineOf',
-	#category : 'BaselineOfMagritte',
-	#package : 'BaselineOfMagritte'
+	#name : #BaselineOfMagritte,
+	#superclass : #BaselineOf,
+	#category : #BaselineOfMagritte
 }
 
-{ #category : 'baselines' }
+{ #category : #baselines }
 BaselineOfMagritte >> baseline300ForGemStone: spec [
 	spec
 		for: #gemstone
@@ -30,7 +29,7 @@ BaselineOfMagritte >> baseline300ForGemStone: spec [
 				package: 'Magritte-GemStone-Seaside' with: [ spec requires: #('Magritte-Seaside') ] ]
 ]
 
-{ #category : 'baselines' }
+{ #category : #baselines }
 BaselineOfMagritte >> baseline310CommonExtDeps: spec [
 	"Common external dependencies for baseline 3.1.0"
 
@@ -43,7 +42,7 @@ BaselineOfMagritte >> baseline310CommonExtDeps: spec [
 				loads: #('Core') ]
 ]
 
-{ #category : 'baselines' }
+{ #category : #baselines }
 BaselineOfMagritte >> baseline330ForPharo: spec [
 
 	spec for: #(#'pharo7.x' #'pharo8.x' #'pharo9.x' #'pharo10.x' #'pharo11.x' #'pharo12.x' #'pharo13.x' #'pharo14.x') do: [
@@ -78,7 +77,7 @@ BaselineOfMagritte >> baseline330ForPharo: spec [
 		spec group: 'default' with: #(#'Magritte-GToolkit' 'Magritte-Merging-Bloc') ].
 ]
 
-{ #category : 'baselines' }
+{ #category : #baselines }
 BaselineOfMagritte >> baseline330ForSqueakCommon: spec [
 
 	spec for: #squeakCommon do: [
@@ -104,7 +103,7 @@ BaselineOfMagritte >> baseline330ForSqueakCommon: spec [
 			package: 'Magritte-NotGToolkit' ]
 ]
 
-{ #category : 'baselines' }
+{ #category : #baselines }
 BaselineOfMagritte >> baseline: spec [
 	<baseline>
 	spec
@@ -137,14 +136,14 @@ BaselineOfMagritte >> baseline: spec [
 	self baseline300ForGemStone: spec
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 BaselineOfMagritte >> customProjectAttributes [
 	^ self isGTImage
 			ifFalse: [ #(notGToolkit) ]
 			ifTrue: [ #(GToolkit) ]
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 BaselineOfMagritte >> isGTImage [
 
 	^ RPackageOrganizer default packageNames anySatisfy: [ :pn | pn beginsWith: 'Lepiter-' ].

diff --git a/source/BaselineOfMagritte/package.st b/source/BaselineOfMagritte/package.st
@@ -1 +1 @@
-Package { #name : 'BaselineOfMagritte' }
+Package { #name : #BaselineOfMagritte }
diff --git a/source/ConfigurationOfMagritte3/ConfigurationOfMagritte3.class.st b/source/ConfigurationOfMagritte3/ConfigurationOfMagritte3.class.st
@@ -10,7 +10,7 @@ Class {
 	#classVars : [
 		'LastVersionLoad'
 	],
-	#category : 'ConfigurationOfMagritte3'
+	#category : #ConfigurationOfMagritte3
 }
 
 { #category : #private }

diff --git a/source/ConfigurationOfMagritteContactManager/ConfigurationOfMagritteContactManager.class.st b/source/ConfigurationOfMagritteContactManager/ConfigurationOfMagritteContactManager.class.st
@@ -10,7 +10,7 @@ Class {
 	#classVars : [
 		'LastVersionLoad'
 	],
-	#category : 'ConfigurationOfMagritteContactManager'
+	#category : #ConfigurationOfMagritteContactManager
 }
 
 { #category : #'development support' }

diff --git a/...figurationOfMagritteContactManagerTutorial/ConfigurationOfMagritteContactManager.class.st b/...figurationOfMagritteContactManagerTutorial/ConfigurationOfMagritteContactManager.class.st
@@ -10,7 +10,7 @@ Class {
 	#classVars : [
 		'LastVersionLoad'
 	],
-	#category : 'ConfigurationOfMagritteContactManagerTutorial'
+	#category : #ConfigurationOfMagritteContactManagerTutorial
 }
 
 { #category : #'development support' }

diff --git a/source/ConfigurationOfMagritteSeaside/ConfigurationOfMagritteSeaside.class.st b/source/ConfigurationOfMagritteSeaside/ConfigurationOfMagritteSeaside.class.st
@@ -10,7 +10,7 @@ Class {
 	#classVars : [
 		'LastVersionLoad'
 	],
-	#category : 'ConfigurationOfMagritteSeaside'
+	#category : #ConfigurationOfMagritteSeaside
 }
 
 { #category : #private }

diff --git a/source/Magritte-Bootstrap/TMagritteBootstrap.trait.st b/source/Magritte-Bootstrap/TMagritteBootstrap.trait.st
@@ -1,6 +1,6 @@
 Trait {
 	#name : #TMagritteBootstrap,
-	#category : 'Magritte-Bootstrap'
+	#category : #'Magritte-Bootstrap'
 }
 
 { #category : #'reflective operations' }

diff --git a/source/Magritte-ContactManager/CMAddress.class.st b/source/Magritte-ContactManager/CMAddress.class.st
@@ -11,7 +11,7 @@ Class {
 		'canton',
 		'nationality'
 	],
-	#category : 'Magritte-ContactManager'
+	#category : #'Magritte-ContactManager'
 }
 
 { #category : #comparing }

diff --git a/source/Magritte-ContactManager/CMPerson.class.st b/source/Magritte-ContactManager/CMPerson.class.st
@@ -16,7 +16,7 @@ Class {
 		'phones',
 		'password'
 	],
-	#category : 'Magritte-ContactManager'
+	#category : #'Magritte-ContactManager'
 }
 
 { #category : #comparing }

diff --git a/source/Magritte-ContactManager/CMPhone.class.st b/source/Magritte-ContactManager/CMPhone.class.st
@@ -8,7 +8,7 @@ Class {
 		'kind',
 		'number'
 	],
-	#category : 'Magritte-ContactManager'
+	#category : #'Magritte-ContactManager'
 }
 
 { #category : #comparing }

diff --git a/source/Magritte-Deprecated/MADynamicObject.class.st b/source/Magritte-Deprecated/MADynamicObject.class.st
@@ -7,7 +7,7 @@ A dynamic object can be used for almost any property within Magritte that is not
 Class {
 	#name : #MADynamicObject,
 	#superclass : #MAProxyObject,
-	#category : 'Magritte-Deprecated'
+	#category : #'Magritte-Deprecated'
 }
 
 { #category : #accessing }

diff --git a/source/Magritte-Deprecated/MADynamicObjectTest.class.st b/source/Magritte-Deprecated/MADynamicObjectTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #MADynamicObjectTest,
 	#superclass : #TestCase,
-	#category : 'Magritte-Deprecated'
+	#category : #'Magritte-Deprecated'
 }
 
 { #category : #tests }

diff --git a/source/Magritte-Deprecated/MANamedBuilder.class.st b/source/Magritte-Deprecated/MANamedBuilder.class.st
@@ -8,7 +8,7 @@ I dynamically build container descriptions from class-side methods using a simpl
 Class {
 	#name : #MANamedBuilder,
 	#superclass : #MADescriptionBuilder,
-	#category : 'Magritte-Deprecated'
+	#category : #'Magritte-Deprecated'
 }
 
 { #category : #private }

diff --git a/source/Magritte-Deprecated/MAProxyObject.class.st b/source/Magritte-Deprecated/MAProxyObject.class.st
@@ -7,7 +7,7 @@ Class {
 	#instVars : [
 		'realSubject'
 	],
-	#category : 'Magritte-Deprecated'
+	#category : #'Magritte-Deprecated'
 }
 
 { #category : #'instance creation' }

diff --git a/source/Magritte-Developer/MAClyAddFieldCommand.class.st b/source/Magritte-Developer/MAClyAddFieldCommand.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'fieldName'
 	],
-	#category : 'Magritte-Developer'
+	#category : #'Magritte-Developer'
 }
 
 { #category : #activation }

diff --git a/source/Magritte-Developer/MADeveloperMenus.class.st b/source/Magritte-Developer/MADeveloperMenus.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #MADeveloperMenus,
 	#superclass : #Object,
-	#category : 'Magritte-Developer'
+	#category : #'Magritte-Developer'
 }
 
 { #category : #'nautilus menus' }

diff --git a/source/Magritte-FileDirectory/MAExternalFileModel.class.st b/source/Magritte-FileDirectory/MAExternalFileModel.class.st
@@ -24,7 +24,7 @@ Class {
 		'baseDirectory',
 		'baseUrl'
 	],
-	#category : 'Magritte-FileDirectory'
+	#category : #'Magritte-FileDirectory'
 }
 
 { #category : #accessing }

diff --git a/source/Magritte-FileSystem/MAFileSystem.class.st b/source/Magritte-FileSystem/MAFileSystem.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #MAFileSystem,
 	#superclass : #Object,
-	#category : 'Magritte-FileSystem'
+	#category : #'Magritte-FileSystem'
 }
 
 { #category : #paths }

diff --git a/source/Magritte-GT/ClyTagInspectorExtensionCommand.class.st b/source/Magritte-GT/ClyTagInspectorExtensionCommand.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #ClyTagInspectorExtensionCommand,
 	#superclass : #SycMethodCommand,
-	#category : 'Magritte-GT'
+	#category : #'Magritte-GT'
 }
 
 { #category : #testing }

diff --git a/source/Magritte-GToolkit/MADropdownWish.class.st b/source/Magritte-GToolkit/MADropdownWish.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'selection'
 	],
-	#category : 'Magritte-GToolkit-Support'
+	#category : #'Magritte-GToolkit-Support'
 }
 
 { #category : #accessing }

diff --git a/source/Magritte-Glamour/GLMMagrittePresentation.class.st b/source/Magritte-Glamour/GLMMagrittePresentation.class.st
@@ -5,7 +5,7 @@ Class {
 		'magritteDescription',
 		'answerBlock'
 	],
-	#category : 'Magritte-Glamour'
+	#category : #'Magritte-Glamour'
 }
 
 { #category : #accessing }

diff --git a/source/Magritte-Morph/GRPackage.extension.st b/source/Magritte-Morph/GRPackage.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : 'GRPackage' }
+Extension { #name : #GRPackage }
 
-{ #category : '*magritte-morph' }
+{ #category : #'*magritte-morph' }
 GRPackage class >> magritteMorph [
 	^ self new
 		name: 'Magritte-Morph';

diff --git a/source/Magritte-Morph/MAActionDescription.extension.st b/source/Magritte-Morph/MAActionDescription.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : 'MAActionDescription' }
+Extension { #name : #MAActionDescription }
 
-{ #category : '*magritte-morph' }
+{ #category : #'*magritte-morph' }
 MAActionDescription >> buttonOn: anObject [
 	| buttonLabel |
 	"Copied alpha morph wrapping from TEasilyThemed. Not sure how/why it works..."

diff --git a/source/Magritte-Morph/MABlockDescription.extension.st b/source/Magritte-Morph/MABlockDescription.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : 'MABlockDescription' }
+Extension { #name : #MABlockDescription }
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MABlockDescription class >> defaultMorphClasses [
 	^ Array with: MAMorphicMemo
 ]
diff --git a/source/Magritte-Morph/MABooleanDescription.extension.st b/source/Magritte-Morph/MABooleanDescription.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : 'MABooleanDescription' }
+Extension { #name : #MABooleanDescription }
 
-{ #category : '*magritte-morph-default' }
+{ #category : #'*magritte-morph-default' }
 MABooleanDescription class >> defaultMorphicClasses [
 	^ Array with: MAMorphicCheckbox with: MAMorphicSingleSelectList
 ]
diff --git a/source/Magritte-Morph/MAContainer.extension.st b/source/Magritte-Morph/MAContainer.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : 'MAContainer' }
+Extension { #name : #MAContainer }
 
-{ #category : '*magritte-morph-converting' }
+{ #category : #'*magritte-morph-converting' }
 MAContainer >> asMorphOn: anObject [
 	| memento |
 	memento := anObject mementoClass
@@ -9,12 +9,12 @@ MAContainer >> asMorphOn: anObject [
 	^ self morphicClass memento: memento
 ]
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MAContainer class >> defaultMorphicClasses [
 	^ Array with: MAMorphicContainer
 ]
 
-{ #category : '*magritte-morph-converting' }
+{ #category : #'*magritte-morph-converting' }
 MAContainer >> elementBuilderFor: anObject [
 
 	self flag: 'Commented out from #asMorphOn:'.

diff --git a/source/Magritte-Morph/MADateDescription.extension.st b/source/Magritte-Morph/MADateDescription.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : 'MADateDescription' }
+Extension { #name : #MADateDescription }
 
-{ #category : '*magritte-morph-default' }
+{ #category : #'*magritte-morph-default' }
 MADateDescription class >> defaultMorphicClasses [
 	^ Array with: MAMorphicDate.
 ]
diff --git a/source/Magritte-Morph/MADescription.extension.st b/source/Magritte-Morph/MADescription.extension.st
@@ -1,22 +1,22 @@
-Extension { #name : 'MADescription' }
+Extension { #name : #MADescription }
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MADescription class >> defaultMorphColor [
 	^ Color white
 ]
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MADescription class >> defaultMorphicClass [
 	^ self defaultMorphicClasses notEmpty
 		ifTrue: [ self defaultMorphicClasses first ]
 ]
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MADescription class >> defaultMorphicClasses [
 	^ Array new
 ]
 
-{ #category : '*magritte-morph-accessing' }
+{ #category : #'*magritte-morph-accessing' }
 MADescription >> descriptionMorphicClass [
 	<magritteDescription>
 	^ MASingleOptionDescription new
@@ -29,22 +29,22 @@ MADescription >> descriptionMorphicClass [
 		yourself
 ]
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MADescription >> morphColor [
 	^ self propertyAt: #morphColor ifAbsent: [ self class defaultMorphColor ]
 ]
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MADescription >> morphColor: aColor [
 	^ self propertyAt: #morphColor put: aColor
 ]
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MADescription >> morphicClass [
 	^ self propertyAt: #morphicClass ifAbsent: [ self class defaultMorphicClass ]
 ]
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MADescription >> morphicClass: aClass [
 	^ self propertyAt: #morphicClass put: aClass
 ]
diff --git a/source/Magritte-Morph/MADirectoryDescription.extension.st b/source/Magritte-Morph/MADirectoryDescription.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : 'MADirectoryDescription' }
+Extension { #name : #MADirectoryDescription }
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MADirectoryDescription class >> defaultMorphicClasses [
 	^ Array with: MAMorphicDirectory
 ]
diff --git a/source/Magritte-Morph/MAElementDescription.extension.st b/source/Magritte-Morph/MAElementDescription.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : 'MAElementDescription' }
+Extension { #name : #MAElementDescription }
 
-{ #category : '*Magritte-Morph' }
+{ #category : #'*Magritte-Morph' }
 MAElementDescription class >> defaultMorphicClasses [
 	^ Array with: MAMorphicText
 ]
Original file line number	Diff line number	Diff line change
		@@ -1 +1 @@
		Package { #name : 'BaselineOfMagritte' }
		Package { #name : #BaselineOfMagritte }