diff --git a/src/Pyramid-Bloc/PyramidTreePlugin.class.st b/src/Pyramid-Bloc/PyramidTreePlugin.class.st
index 80f530b8..7fd6ed24 100644
--- a/src/Pyramid-Bloc/PyramidTreePlugin.class.st
+++ b/src/Pyramid-Bloc/PyramidTreePlugin.class.st
@@ -45,36 +45,46 @@ PyramidTreePlugin class >> addDefaultOnLibrary: library [
 PyramidTreePlugin class >> addOnLibrary: aLibrary [
 
 	self addDefaultOnLibrary: aLibrary.
-	self addPystonOnLibrary: aLibrary
+	self addPystonOnLibrary: aLibrary.
+	self addPystashOnLibrary: aLibrary
 ]
 
 { #category : #'as yet unclassified' }
-PyramidTreePlugin class >> addPystonOnLibrary: library [
+PyramidTreePlugin class >> addPragma: aSymbol onLibrary: aLibrary withIcon: anIcon [
 
 	| pragmas methods packages |
-	pragmas := Pragma allNamed: #pySTON.
+	pragmas := Pragma allNamed: aSymbol.
 	methods := (pragmas collect: #method) asSet.
 	packages := (methods collect: #package) asSet.
 
 	packages do: [ :package |
 		| factories |
-		factories := methods
-			             select: [ :method | method package = package ]
-			             thenCollect: [ :method |
-				             PyramidElementToAddFactory new
-					             elementIcon: (Smalltalk ui icons iconNamed:
-								              method methodClass soleInstance systemIconName);
-					             elementName: method selector;
-					             elementBlock: [
-						             (method methodClass soleInstance perform:
-								              method selector) materializeAsBlElement ];
-					             yourself ].
-		library
+		factories := self factoriesFromMethods: methods inPackage: package.
+		factories ifNotEmpty: [ aLibrary
 			addCategoryWithName: package name
-			withIcon: (Smalltalk ui icons iconNamed: #smallInfo)
-			withAllFactories: factories asArray sorted ].
+			withIcon: anIcon
+			withAllFactories: factories asArray sorted ]
+		 ].
 
-	^ library
+	^ aLibrary
+]
+
+{ #category : #'as yet unclassified' }
+PyramidTreePlugin class >> addPystashOnLibrary: library [
+
+	^ self
+		  addPragma: #pyStash
+		  onLibrary: library
+		  withIcon: (Smalltalk ui icons iconNamed: #smallSave).
+]
+
+{ #category : #'as yet unclassified' }
+PyramidTreePlugin class >> addPystonOnLibrary: library [
+
+	^ self
+		  addPragma: #pySTON
+		  onLibrary: library
+		  withIcon: (Smalltalk ui icons iconNamed: #smallSave)
 ]
 
 { #category : #accessing }
@@ -85,6 +95,26 @@ PyramidTreePlugin class >> columnsBuildersClasses [
 	^ ColumnsBuildersClasses
 ]
 
+{ #category : #'as yet unclassified' }
+PyramidTreePlugin class >> factoriesFromMethods: methods inPackage: package [
+
+	package ifNil: [ ^ {  } ].
+
+	^ methods
+		  select: [ :method |
+			  method package = package and: [
+				  method methodClass isObsolete not ] ]
+		  thenCollect: [ :method |
+			  PyramidElementToAddFactory new
+				  elementIcon: (Smalltalk ui icons iconNamed:
+							   method methodClass soleInstance systemIconName);
+				  elementName: method selector;
+				  elementBlock: [
+					  (method methodClass soleInstance perform: method selector)
+						  materializeAsBlElement ];
+				  yourself ]
+]
+
 { #category : #initialization }
 PyramidTreePlugin class >> install [
 	"Do some stuff here when the plugin used class oriented behavior"
diff --git a/src/Pyramid-Examples/PyramidSimpleExamples.class.st b/src/Pyramid-Examples/PyramidSimpleExamples.class.st
index 9a8447e9..cacc39c1 100644
--- a/src/Pyramid-Examples/PyramidSimpleExamples.class.st
+++ b/src/Pyramid-Examples/PyramidSimpleExamples.class.st
@@ -1,179 +1,166 @@
 Class {
-	#name : 'PyramidSimpleExamples',
-	#superclass : 'Object',
-	#category : 'Pyramid-Examples',
-	#package : 'Pyramid-Examples'
+	#name : #PyramidSimpleExamples,
+	#superclass : #Object,
+	#category : #'Pyramid-Examples'
 }
 
-{ #category : 'pyramid-serialized-bloc' }
+{ #category : #'pyramid-serialized-bloc' }
 PyramidSimpleExamples class >> imageProxy [
-<pyStash>
-	^ [ "BlStashSerializer"
-{(BlElement new
+	"This class has been generated using Pyramid.
+
+	By: YannLEGOFF
+	2024-07-23 09:32:34"
+
+	<pyStash>
+	^ [ {(BlElement new
    id: #A;
    background: (BlImageBackground new
+         image: (PyramidExternalRessourceProxy new
+               pyramidExternalRessourceSource: (PyramidExternalRessourceSource new
+                     target: Object;
+                     selector: #iconNamed:;
+                     arguments: {#pharoBig};
+                     yourself);
+               yourself);
          opacity: 1.0;
-         image: PyramidExternalRessourceProxy new;
          yourself);
-   layout: BlBasicLayout uniqueInstance;
-   constraintsDo: [:constraints |  constraints horizontal exact: 200.0.
-      constraints vertical exact: 200.0 ];
-   yourself)}
-	] value
+   constraintsDo: [:constraints |  constraints horizontal exact: 256.0.
+      constraints vertical exact: 256.0 ];
+   yourself)} ] value
 ]
 
-{ #category : 'pyramid-serialized-bloc' }
+{ #category : #'pyramid-serialized-bloc' }
 PyramidSimpleExamples class >> little_cat_in_black [
-<pyStash>
-	^ [ "BlStashSerializer"
-| blellipsegeometry1 blpaintbackground2 bltransparentbackground3 point4 point5 blpaintbackground6 blroundedrectanglegeometry7 |
-blellipsegeometry1 := BlEllipseGeometry new.
+	"This class has been generated using Pyramid.
+
+	By: YannLEGOFF
+	2024-07-29 11:47:06"
+
+	<pyStash>
+	^ [ | blpaintbackground1 blpaintbackground2 |
+blpaintbackground1 := BlPaintBackground new.
 blpaintbackground2 := BlPaintBackground new.
-bltransparentbackground3 := BlTransparentBackground new.
-point4 := Point new.
-point5 := Point new.
-blpaintbackground6 := BlPaintBackground new.
-blroundedrectanglegeometry7 := BlRoundedRectangleGeometry cornerRadius: 12.
 {(BlElement new
+   background: (blpaintbackground2
+         paint: (BlColorPaint new
+               color: (Color r: 0.0 g: 0.0 b: 0.0 alpha: 1.0);
+               yourself);
+         opacity: 1.0;
+         yourself);
+   constraintsDo: [:constraints |  constraints horizontal matchParent.
+      constraints vertical matchParent ];
+   layout: BlFrameLayout new;
    addChildren: {(BlElement new
+         clipChildren: false;
+         constraintsDo: [:constraints |  constraints frame horizontal alignCenter.
+            constraints frame vertical alignTopAt: 0.3.
+            constraints position: 373.0 @ 166.0 ];
          addChildren: {(BlElement new
-               addChildren: {(BlElement new
-                     id: #E;
-                     background: (blpaintbackground2
-                           opacity: 1.0;
-                           paint: (BlColorPaint new
-                                 color: (Color r: 0.0 g: 0.0 b: 0.0 alpha: 1.0);
-                                 yourself);
-                           yourself);
-                     geometry: blellipsegeometry1;
-                     layout: BlBasicLayout uniqueInstance;
-                     constraintsDo: [:constraints |  constraints horizontal exact: 10.0.
-                        constraints vertical exact: 100.0.
-                        constraints position: 43.0 @ 46.0 ];
-                     yourself)};
-               id: #C;
-               background: (blpaintbackground6
-                     opacity: 1.0;
+               background: (blpaintbackground1
                      paint: (BlColorPaint new
                            color: (Color r: 1.0 g: 1.0 b: 1.0 alpha: 1.0);
                            yourself);
+                     opacity: 1.0;
                      yourself);
-               geometry: blroundedrectanglegeometry7;
-               layout: BlBasicLayout uniqueInstance;
+               geometry: (BlRoundedRectangleGeometry cornerRadius: 12);
                constraintsDo: [:constraints |  constraints horizontal exact: 100.0.
                   constraints vertical exact: 100.0.
                   constraints position: -200 @ 0 ];
-               yourself) . 
-            (BlElement new
                addChildren: {(BlElement new
-                     id: #E;
                      background: blpaintbackground2;
-                     geometry: blellipsegeometry1;
-                     layout: BlBasicLayout uniqueInstance;
+                     geometry: BlEllipseGeometry new;
                      constraintsDo: [:constraints |  constraints horizontal exact: 10.0.
                         constraints vertical exact: 100.0.
                         constraints position: 43.0 @ 46.0 ];
+                     id: #E;
                      yourself)};
-               id: #D;
-               background: blpaintbackground6;
-               geometry: blroundedrectanglegeometry7;
-               layout: BlBasicLayout uniqueInstance;
+               id: #C;
+               yourself) . 
+            (BlElement new
+               background: blpaintbackground1;
+               geometry: (BlRoundedRectangleGeometry cornerRadius: 12);
                constraintsDo: [:constraints |  constraints horizontal exact: 100.0.
                   constraints vertical exact: 100.0.
                   constraints position: 150 @ 0 ];
+               addChildren: {(BlElement new
+                     background: blpaintbackground2;
+                     geometry: BlEllipseGeometry new;
+                     constraintsDo: [:constraints |  constraints horizontal exact: 10.0.
+                        constraints vertical exact: 100.0.
+                        constraints position: 43.0 @ 46.0 ];
+                     id: #E;
+                     yourself)};
+               id: #D;
                yourself)};
          id: #eyes;
-         background: (bltransparentbackground3
-               opacity: 1.0;
-               yourself);
-         clipChildren: false;
-         layout: BlBasicLayout uniqueInstance;
-         constraintsDo: [:constraints |  constraints frame horizontal alignCenter.
-            constraints frame vertical alignTopAt: 0.3.
-            constraints position: 373.0 @ 166.0 ];
          yourself) . 
       (BlElement new
+         geometry: BlRectangleGeometry new;
+         constraintsDo: [:constraints |  constraints frame horizontal alignCenter.
+            constraints frame vertical alignCenter.
+            constraints position: 373.0 @ 263.0 ];
          addChildren: {(BlElement new
+               background: blpaintbackground1;
+               geometry: BlEllipseGeometry new;
                id: #G;
-               background: blpaintbackground6;
-               geometry: blellipsegeometry1;
-               layout: BlBasicLayout uniqueInstance;
                yourself) . 
             (BlElement new
-               id: #H;
-               background: blpaintbackground6;
+               background: blpaintbackground1;
                geometry: (BlRoundedRectangleGeometry cornerRadii: (BlCornerRadii new
                            topLeft: 12;
                            topRight: 12;
                            bottomLeft: 0;
                            bottomRight: 0;
                            yourself));
-               layout: BlBasicLayout uniqueInstance;
                constraintsDo: [:constraints |  constraints vertical exact: 25.0 ];
+               id: #H;
                yourself)};
          id: #nose;
-         background: bltransparentbackground3;
-         geometry: BlRectangleGeometry new;
-         layout: BlBasicLayout uniqueInstance;
-         constraintsDo: [:constraints |  constraints frame horizontal alignCenter.
-            constraints frame vertical alignCenter.
-            constraints position: 373.0 @ 263.0 ];
          yourself) . 
       (BlElement new
+         clipChildren: false;
+         constraintsDo: [:constraints |  constraints frame horizontal alignCenter.
+            constraints frame vertical alignTopAt: 0.6.
+            constraints position: 373.0 @ 364.0 ];
          addChildren: {(BlElement new
-               id: #J;
-               background: blpaintbackground6;
-               geometry: blellipsegeometry1;
-               layout: BlBasicLayout uniqueInstance;
-               constraintsDo: [:constraints |  constraints horizontal exact: 150.
+               background: blpaintbackground1;
+               geometry: BlEllipseGeometry new;
+               constraintsDo: [:constraints |  constraints horizontal exact: 150.0.
                   constraints vertical exact: 10.0.
                   constraints position: 100.0 @ 0 ];
+               id: #J;
                yourself) . 
             (BlElement new
-               id: #K;
-               background: blpaintbackground6;
-               geometry: blellipsegeometry1;
-               layout: BlBasicLayout uniqueInstance;
-               constraintsDo: [:constraints |  constraints horizontal exact: 150.
+               background: blpaintbackground1;
+               geometry: BlEllipseGeometry new;
+               constraintsDo: [:constraints |  constraints horizontal exact: 150.0.
                   constraints vertical exact: 10.0.
                   constraints position: 80 @ 30 ];
+               id: #K;
                yourself) . 
             (BlElement new
-               id: #L;
-               background: blpaintbackground6;
-               geometry: blellipsegeometry1;
-               layout: BlBasicLayout uniqueInstance;
-               constraintsDo: [:constraints |  constraints horizontal exact: 150.
+               background: blpaintbackground1;
+               geometry: BlEllipseGeometry new;
+               constraintsDo: [:constraints |  constraints horizontal exact: 150.0.
                   constraints vertical exact: 10.0.
                   constraints position: -200 @ 0 ];
+               id: #L;
                yourself) . 
             (BlElement new
-               id: #M;
-               background: blpaintbackground6;
-               geometry: blellipsegeometry1;
-               layout: BlBasicLayout uniqueInstance;
-               constraintsDo: [:constraints |  constraints horizontal exact: 150.
+               background: blpaintbackground1;
+               geometry: BlEllipseGeometry new;
+               constraintsDo: [:constraints |  constraints horizontal exact: 150.0.
                   constraints vertical exact: 10.0.
                   constraints position: -180 @ 30 ];
+               id: #M;
                yourself)};
          id: #mustach;
-         background: bltransparentbackground3;
-         clipChildren: false;
-         layout: BlBasicLayout uniqueInstance;
-         constraintsDo: [:constraints |  constraints frame horizontal alignCenter.
-            constraints frame vertical alignTopAt: 0.6.
-            constraints position: 373.0 @ 364.0 ];
          yourself)};
    id: #background;
-   background: blpaintbackground2;
-   layout: BlFrameLayout new;
-   constraintsDo: [:constraints |  constraints horizontal matchParent.
-      constraints vertical matchParent ];
-   yourself)}
-	] value
+   yourself)} ] value
 ]
 
-{ #category : 'pyramid-serialized-bloc' }
+{ #category : #'pyramid-serialized-bloc' }
 PyramidSimpleExamples class >> marble [
 
 	<pyStash>
@@ -310,7 +297,7 @@ PyramidSimpleExamples class >> marble [
 			   yourself) } ] value
 ]
 
-{ #category : 'pyramid-serialized-bloc' }
+{ #category : #'pyramid-serialized-bloc' }
 PyramidSimpleExamples class >> marble2 [
 
 	<pyStash>
@@ -466,7 +453,7 @@ PyramidSimpleExamples class >> marble2 [
 			   yourself) } ] value
 ]
 
-{ #category : 'pyramid-serialized-bloc' }
+{ #category : #'pyramid-serialized-bloc' }
 PyramidSimpleExamples class >> marble3 [
 
 	<pyStash>
@@ -763,7 +750,7 @@ PyramidSimpleExamples class >> marble3 [
 			   yourself) } ] value
 ]
 
-{ #category : 'pyramid-serialized-bloc' }
+{ #category : #'pyramid-serialized-bloc' }
 PyramidSimpleExamples class >> signal [
 <pyStash>
 	^ [ "BlStashSerializer"
@@ -826,7 +813,7 @@ blellipsegeometry2 := BlEllipseGeometry new.
 	] value
 ]
 
-{ #category : 'pyramid-serialized-bloc' }
+{ #category : #'pyramid-serialized-bloc' }
 PyramidSimpleExamples class >> signal_green [
 <pyStash>
 	^ [ "BlStashSerializer"
@@ -889,7 +876,7 @@ blellipsegeometry2 := BlEllipseGeometry new.
 	] value
 ]
 
-{ #category : 'pyramid-serialized-bloc' }
+{ #category : #'pyramid-serialized-bloc' }
 PyramidSimpleExamples class >> simpleFlowLayout [
 <pyStash>
 	^ [ "BlStashSerializer"
@@ -988,6 +975,6 @@ blinsets1 := BlInsets all: 5.0.
 	] value
 ]
 
-{ #category : 'see class side' }
+{ #category : #'see class side' }
 PyramidSimpleExamples >> seeClassSide [ 
 ]
diff --git a/src/Pyramid-Examples/package.st b/src/Pyramid-Examples/package.st
index 35ceaa72..0b6144d4 100644
--- a/src/Pyramid-Examples/package.st
+++ b/src/Pyramid-Examples/package.st
@@ -1 +1 @@
-Package { #name : 'Pyramid-Examples' }
+Package { #name : #'Pyramid-Examples' }
diff --git a/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st b/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st
index ad54c577..e67efd17 100644
--- a/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidAddMockCommandTest.class.st b/src/Pyramid-Tests/PyramidAddMockCommandTest.class.st
index f1e52d3b..eff607cf 100644
--- a/src/Pyramid-Tests/PyramidAddMockCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidAddMockCommandTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidAddMockCommandTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st
index f5308c6b..cdde4fdc 100644
--- a/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st
index 6f01df3d..3dff80ca 100644
--- a/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st
index ea72a86d..f18471ff 100644
--- a/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st
index 949a9ab7..ff09432c 100644
--- a/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st
index 116912ab..54e3f26a 100644
--- a/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st
index 31caf284..2eb0cc4d 100644
--- a/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st
index aac47749..ba48dc8c 100644
--- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st
index b9bfbd44..80a94e73 100644
--- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st
index ba329f0d..12bd8c40 100644
--- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st
index 742ef40e..4cdaddda 100644
--- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st
index 284afe89..6e52bb48 100644
--- a/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundStopsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidBackgroundStopsInputPresenterTest.class.st
index 576642a9..efe9c90b 100644
--- a/src/Pyramid-Tests/PyramidBackgroundStopsInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundStopsInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st
index b3c75e7b..b63ada96 100644
--- a/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBasicConstraintsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidBasicConstraintsInputPresenterTest.class.st
index 2b2e2fed..e8705ae3 100644
--- a/src/Pyramid-Tests/PyramidBasicConstraintsInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidBasicConstraintsInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st
index ddb32c3c..b439ee0d 100644
--- a/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-layout'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-layout'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st
index a1165f8e..948798f2 100644
--- a/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-layout'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-layout'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st
index 0c34c59c..2cb93cfb 100644
--- a/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-layout'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-layout'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st
index 6bd1493e..039f399c 100644
--- a/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-layout'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-layout'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st
index 618ef42f..f55b988d 100644
--- a/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st
index a7d65f33..17480fae 100644
--- a/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st
index dce90ad7..8e5f3bee 100644
--- a/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st
index fef84f1f..4e5db5ec 100644
--- a/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st
index f4ddb511..0697b6c0 100644
--- a/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st
index 77ba3328..e31aa4b0 100644
--- a/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st
index cc091120..9d79abf9 100644
--- a/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st b/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st
index 3f304800..7703a770 100644
--- a/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-order'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-order'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st b/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st
index 18dd1eb5..bc1edb85 100644
--- a/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-text'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-text'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st b/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st
index 07f02a09..b40c9836 100644
--- a/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidCollectionWithCallbacksTest.class.st b/src/Pyramid-Tests/PyramidCollectionWithCallbacksTest.class.st
index 207bcdd4..adcd50c9 100644
--- a/src/Pyramid-Tests/PyramidCollectionWithCallbacksTest.class.st
+++ b/src/Pyramid-Tests/PyramidCollectionWithCallbacksTest.class.st
@@ -5,7 +5,7 @@ Class {
 		'valueToCheck',
 		'collection'
 	],
-	#category : #'Pyramid-Tests-cases-models'
+	#category : 'Pyramid-Tests-cases-models'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidColorInputMultiLinesPresenterTest.class.st b/src/Pyramid-Tests/PyramidColorInputMultiLinesPresenterTest.class.st
index 2f26fe58..adf3bae6 100644
--- a/src/Pyramid-Tests/PyramidColorInputMultiLinesPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidColorInputMultiLinesPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidColorInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidColorInputPresenterTest.class.st
index 6f5c1cfc..1c58b8cc 100644
--- a/src/Pyramid-Tests/PyramidColorInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidColorInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidColorInputSingleLinePresenterTest.class.st b/src/Pyramid-Tests/PyramidColorInputSingleLinePresenterTest.class.st
index 6c1bd946..284dd6c6 100644
--- a/src/Pyramid-Tests/PyramidColorInputSingleLinePresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidColorInputSingleLinePresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidColorInputSingleLineWithPickupButtonPresenterTest.class.st b/src/Pyramid-Tests/PyramidColorInputSingleLineWithPickupButtonPresenterTest.class.st
index c8cfa5c3..b6ba2ca0 100644
--- a/src/Pyramid-Tests/PyramidColorInputSingleLineWithPickupButtonPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidColorInputSingleLineWithPickupButtonPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidCommandTest.class.st b/src/Pyramid-Tests/PyramidCommandTest.class.st
index 8403402a..47d2cc06 100644
--- a/src/Pyramid-Tests/PyramidCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidCommandTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidCommandTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidCommandTestContainer.class.st b/src/Pyramid-Tests/PyramidCommandTestContainer.class.st
index a9f8912a..17bc1f0f 100644
--- a/src/Pyramid-Tests/PyramidCommandTestContainer.class.st
+++ b/src/Pyramid-Tests/PyramidCommandTestContainer.class.st
@@ -6,7 +6,7 @@ Class {
 		'targetWithProp',
 		'prop'
 	],
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidContextMenuPluginTest.class.st b/src/Pyramid-Tests/PyramidContextMenuPluginTest.class.st
index f099b03f..262fddcf 100644
--- a/src/Pyramid-Tests/PyramidContextMenuPluginTest.class.st
+++ b/src/Pyramid-Tests/PyramidContextMenuPluginTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidContextMenuPluginTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-plugin-context-menu'
+	#category : 'Pyramid-Tests-cases-plugin-context-menu'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidCopyPastePluginTest.class.st b/src/Pyramid-Tests/PyramidCopyPastePluginTest.class.st
index f4f63696..d00a9d3e 100644
--- a/src/Pyramid-Tests/PyramidCopyPastePluginTest.class.st
+++ b/src/Pyramid-Tests/PyramidCopyPastePluginTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidCopyPastePluginTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-plugin-copy'
+	#category : 'Pyramid-Tests-cases-plugin-copy'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidCornerRadiiInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidCornerRadiiInputPresenterTest.class.st
index cf93277f..8338fb3e 100644
--- a/src/Pyramid-Tests/PyramidCornerRadiiInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidCornerRadiiInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-geometry'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-geometry'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st b/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st
index 6e1c22c6..07a22d3e 100644
--- a/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st
+++ b/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidDecreaseMockCommand,
 	#superclass : #PyramidMockCommand,
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidDynamicLayoutStrategyTest.class.st b/src/Pyramid-Tests/PyramidDynamicLayoutStrategyTest.class.st
index 11469e58..5d9588bc 100644
--- a/src/Pyramid-Tests/PyramidDynamicLayoutStrategyTest.class.st
+++ b/src/Pyramid-Tests/PyramidDynamicLayoutStrategyTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidDynamicLayoutStrategyTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-plugin-dynamic-layout'
+	#category : 'Pyramid-Tests-cases-plugin-dynamic-layout'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidEditorBuilderTest.class.st b/src/Pyramid-Tests/PyramidEditorBuilderTest.class.st
index 76a3d469..9fef616f 100644
--- a/src/Pyramid-Tests/PyramidEditorBuilderTest.class.st
+++ b/src/Pyramid-Tests/PyramidEditorBuilderTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidEditorBuilderTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-core'
+	#category : 'Pyramid-Tests-cases-core'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidEditorTest.class.st b/src/Pyramid-Tests/PyramidEditorTest.class.st
index baab7d2e..bdee6a3c 100644
--- a/src/Pyramid-Tests/PyramidEditorTest.class.st
+++ b/src/Pyramid-Tests/PyramidEditorTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidEditorTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-core'
+	#category : 'Pyramid-Tests-cases-core'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st b/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st
index b235dc3b..77217d3e 100644
--- a/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidElementIdSortFunctionTest.class.st b/src/Pyramid-Tests/PyramidElementIdSortFunctionTest.class.st
index 46f21802..21a5bb51 100644
--- a/src/Pyramid-Tests/PyramidElementIdSortFunctionTest.class.st
+++ b/src/Pyramid-Tests/PyramidElementIdSortFunctionTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidElementIdSortFunctionTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-bloc-utils'
+	#category : 'Pyramid-Tests-cases-bloc-utils'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidElementsManipulationHelperTest.class.st b/src/Pyramid-Tests/PyramidElementsManipulationHelperTest.class.st
index 691ca691..3a6ea220 100644
--- a/src/Pyramid-Tests/PyramidElementsManipulationHelperTest.class.st
+++ b/src/Pyramid-Tests/PyramidElementsManipulationHelperTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidElementsManipulationHelperTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-bloc-utils'
+	#category : 'Pyramid-Tests-cases-bloc-utils'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidElevationSortFunctionTest.class.st b/src/Pyramid-Tests/PyramidElevationSortFunctionTest.class.st
index 9ad0b773..4609c119 100644
--- a/src/Pyramid-Tests/PyramidElevationSortFunctionTest.class.st
+++ b/src/Pyramid-Tests/PyramidElevationSortFunctionTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidElevationSortFunctionTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-bloc-utils'
+	#category : 'Pyramid-Tests-cases-bloc-utils'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidExternalRessourceDummyForTest.class.st b/src/Pyramid-Tests/PyramidExternalRessourceDummyForTest.class.st
index c23baa5c..66fc643e 100644
--- a/src/Pyramid-Tests/PyramidExternalRessourceDummyForTest.class.st
+++ b/src/Pyramid-Tests/PyramidExternalRessourceDummyForTest.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'dummyValue'
 	],
-	#category : #'Pyramid-Tests-cases-external-ressources'
+	#category : 'Pyramid-Tests-cases-external-ressources'
 }
 
 { #category : #'tests - other' }
diff --git a/src/Pyramid-Tests/PyramidExternalRessourceProxyTest.class.st b/src/Pyramid-Tests/PyramidExternalRessourceProxyTest.class.st
index 53319120..40d6c889 100644
--- a/src/Pyramid-Tests/PyramidExternalRessourceProxyTest.class.st
+++ b/src/Pyramid-Tests/PyramidExternalRessourceProxyTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidExternalRessourceProxyTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-external-ressources'
+	#category : 'Pyramid-Tests-cases-external-ressources'
 }
 
 { #category : #'tests - other' }
diff --git a/src/Pyramid-Tests/PyramidExternalRessourceSourceTest.class.st b/src/Pyramid-Tests/PyramidExternalRessourceSourceTest.class.st
index 5007962a..41367f7c 100644
--- a/src/Pyramid-Tests/PyramidExternalRessourceSourceTest.class.st
+++ b/src/Pyramid-Tests/PyramidExternalRessourceSourceTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidExternalRessourceSourceTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-external-ressources'
+	#category : 'Pyramid-Tests-cases-external-ressources'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidFakeExtension.class.st b/src/Pyramid-Tests/PyramidFakeExtension.class.st
index 72a83283..55d5a239 100644
--- a/src/Pyramid-Tests/PyramidFakeExtension.class.st
+++ b/src/Pyramid-Tests/PyramidFakeExtension.class.st
@@ -6,7 +6,7 @@ Class {
 		'editor',
 		'projectModel'
 	],
-	#category : #'Pyramid-Tests-cases-plugin-space'
+	#category : 'Pyramid-Tests-cases-plugin-space'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidFakePlugin.class.st b/src/Pyramid-Tests/PyramidFakePlugin.class.st
index 34d9e9fe..8197d415 100644
--- a/src/Pyramid-Tests/PyramidFakePlugin.class.st
+++ b/src/Pyramid-Tests/PyramidFakePlugin.class.st
@@ -6,7 +6,7 @@ Class {
 		'configureBuilder',
 		'connectOn'
 	],
-	#category : #'Pyramid-Tests-cases-core'
+	#category : 'Pyramid-Tests-cases-core'
 }
 
 { #category : #asserting }
diff --git a/src/Pyramid-Tests/PyramidFakePluginThatShouldNotBeInstalled.class.st b/src/Pyramid-Tests/PyramidFakePluginThatShouldNotBeInstalled.class.st
index 7f726cff..3a2a9971 100644
--- a/src/Pyramid-Tests/PyramidFakePluginThatShouldNotBeInstalled.class.st
+++ b/src/Pyramid-Tests/PyramidFakePluginThatShouldNotBeInstalled.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidFakePluginThatShouldNotBeInstalled,
 	#superclass : #PyramidFakePlugin,
-	#category : #'Pyramid-Tests-cases-core'
+	#category : 'Pyramid-Tests-cases-core'
 }
 
 { #category : #asserting }
diff --git a/src/Pyramid-Tests/PyramidFakePropertyForTestStrategy.class.st b/src/Pyramid-Tests/PyramidFakePropertyForTestStrategy.class.st
index 13d1a2f2..22be45a7 100644
--- a/src/Pyramid-Tests/PyramidFakePropertyForTestStrategy.class.st
+++ b/src/Pyramid-Tests/PyramidFakePropertyForTestStrategy.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'properties'
 	],
-	#category : #'Pyramid-Tests-cases-property'
+	#category : 'Pyramid-Tests-cases-property'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidFlowLayoutOrientationPresenterTest.class.st b/src/Pyramid-Tests/PyramidFlowLayoutOrientationPresenterTest.class.st
index a112b867..ddc86103 100644
--- a/src/Pyramid-Tests/PyramidFlowLayoutOrientationPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidFlowLayoutOrientationPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st b/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st
index effab2f4..b49ff25f 100644
--- a/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidFontAttributeCommandTest',
 	#classTraits : 'TPyramidFontAttributeCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-text'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-text'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st b/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st
index ca2f6b2e..68850859 100644
--- a/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidFontAttributeCommandTest',
 	#classTraits : 'TPyramidFontAttributeCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-text'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-text'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st b/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st
index 070c4ad8..f695265b 100644
--- a/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-geometry'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-geometry'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidGeometryInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidGeometryInputPresenterTest.class.st
index c2052534..857adf03 100644
--- a/src/Pyramid-Tests/PyramidGeometryInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidGeometryInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-geometry'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-geometry'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidGroupCommandTest.class.st b/src/Pyramid-Tests/PyramidGroupCommandTest.class.st
index 8ba4c0db..60691f0a 100644
--- a/src/Pyramid-Tests/PyramidGroupCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidGroupCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-group'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-group'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidHistoryTest.class.st b/src/Pyramid-Tests/PyramidHistoryTest.class.st
index 9018bea2..62920c46 100644
--- a/src/Pyramid-Tests/PyramidHistoryTest.class.st
+++ b/src/Pyramid-Tests/PyramidHistoryTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidHistoryTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-history'
+	#category : 'Pyramid-Tests-cases-history'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidHorizontalFrameConstraintsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidHorizontalFrameConstraintsInputPresenterTest.class.st
index e50b71f6..15f7f340 100644
--- a/src/Pyramid-Tests/PyramidHorizontalFrameConstraintsInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidHorizontalFrameConstraintsInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st b/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st
index cd869468..b54ed72f 100644
--- a/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st
+++ b/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidIncreaseMockCommand,
 	#superclass : #PyramidMockCommand,
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidInsetsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidInsetsInputPresenterTest.class.st
index 54a093d6..6b2af84d 100644
--- a/src/Pyramid-Tests/PyramidInsetsInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidInsetsInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st
index 9482a8d8..79249f60 100644
--- a/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-layout'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-layout'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st b/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st
index b0e2e9e5..d33a5f94 100644
--- a/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-layout'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-layout'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidLibraryPresenterTest.class.st b/src/Pyramid-Tests/PyramidLibraryPresenterTest.class.st
index 217e2196..24909076 100644
--- a/src/Pyramid-Tests/PyramidLibraryPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidLibraryPresenterTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidLibraryPresenterTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-plugin-tree-library'
+	#category : 'Pyramid-Tests-cases-plugin-tree-library'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidLinearLayoutOrientationPresenterTest.class.st b/src/Pyramid-Tests/PyramidLinearLayoutOrientationPresenterTest.class.st
index 65542524..e0e1a2d8 100644
--- a/src/Pyramid-Tests/PyramidLinearLayoutOrientationPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidLinearLayoutOrientationPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidMagicButtonsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidMagicButtonsInputPresenterTest.class.st
index 65ddba88..500e5a9e 100644
--- a/src/Pyramid-Tests/PyramidMagicButtonsInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidMagicButtonsInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidMarginCommandTest.class.st b/src/Pyramid-Tests/PyramidMarginCommandTest.class.st
index 1ff7ea4b..a3e61636 100644
--- a/src/Pyramid-Tests/PyramidMarginCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidMarginCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidMockCommand.class.st b/src/Pyramid-Tests/PyramidMockCommand.class.st
index 752d6f2b..12609a9b 100644
--- a/src/Pyramid-Tests/PyramidMockCommand.class.st
+++ b/src/Pyramid-Tests/PyramidMockCommand.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidMockCommand,
 	#superclass : #PyramidCommand,
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #testing }
diff --git a/src/Pyramid-Tests/PyramidMockObjectForTest.class.st b/src/Pyramid-Tests/PyramidMockObjectForTest.class.st
index a9bceb18..8022b1aa 100644
--- a/src/Pyramid-Tests/PyramidMockObjectForTest.class.st
+++ b/src/Pyramid-Tests/PyramidMockObjectForTest.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'count'
 	],
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st
index beae1f5e..f114ad5f 100644
--- a/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-order'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-order'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st
index 876ebefa..2c869ad5 100644
--- a/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-order'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-order'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidNumberArrayInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidNumberArrayInputPresenterTest.class.st
index cb1df03e..6b6e3058 100644
--- a/src/Pyramid-Tests/PyramidNumberArrayInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidNumberArrayInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidNumberInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidNumberInputPresenterTest.class.st
index 85744a89..28a63f86 100644
--- a/src/Pyramid-Tests/PyramidNumberInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidNumberInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st
index 0e57fc9e..77ade9ab 100644
--- a/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-order'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-order'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st
index dfd10ec8..265bf52b 100644
--- a/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-order'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-order'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st b/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st
index 15abba92..46ffe7c2 100644
--- a/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-visuals'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-visuals'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st b/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st
index 842a6e73..9734cebf 100644
--- a/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st b/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st
index 5308dc28..81f91fa4 100644
--- a/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st
+++ b/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st
@@ -7,7 +7,7 @@ Class {
 	#instVars : [
 		'setting'
 	],
-	#category : #'Pyramid-Tests-cases-plugin-edit-on-running'
+	#category : 'Pyramid-Tests-cases-plugin-edit-on-running'
 }
 
 { #category : #utils }
diff --git a/src/Pyramid-Tests/PyramidPluginManagerTest.class.st b/src/Pyramid-Tests/PyramidPluginManagerTest.class.st
index e3e98a55..e848d3c6 100644
--- a/src/Pyramid-Tests/PyramidPluginManagerTest.class.st
+++ b/src/Pyramid-Tests/PyramidPluginManagerTest.class.st
@@ -4,7 +4,7 @@ A PyramidPluginManagerTest is a test class for testing the behavior of PyramidPl
 Class {
 	#name : #PyramidPluginManagerTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-core'
+	#category : 'Pyramid-Tests-cases-core'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidPluginTestModeTest.class.st b/src/Pyramid-Tests/PyramidPluginTestModeTest.class.st
index de346e56..d4750060 100644
--- a/src/Pyramid-Tests/PyramidPluginTestModeTest.class.st
+++ b/src/Pyramid-Tests/PyramidPluginTestModeTest.class.st
@@ -6,5 +6,5 @@ Class {
 		'spacePlugin',
 		'editor'
 	],
-	#category : #'Pyramid-Tests-cases-plugin-testmode'
+	#category : 'Pyramid-Tests-cases-plugin-testmode'
 }
diff --git a/src/Pyramid-Tests/PyramidPointInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidPointInputPresenterTest.class.st
index 9e0170ed..cf1b585f 100644
--- a/src/Pyramid-Tests/PyramidPointInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidPointInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidPositionCommandTest.class.st b/src/Pyramid-Tests/PyramidPositionCommandTest.class.st
index 596e92eb..a1a0c133 100644
--- a/src/Pyramid-Tests/PyramidPositionCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidPositionCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st b/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st
index 34285057..f9cbb90b 100644
--- a/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidProjectModelObserverForTest.class.st b/src/Pyramid-Tests/PyramidProjectModelObserverForTest.class.st
index 5b4f43d4..886f8f67 100644
--- a/src/Pyramid-Tests/PyramidProjectModelObserverForTest.class.st
+++ b/src/Pyramid-Tests/PyramidProjectModelObserverForTest.class.st
@@ -6,7 +6,7 @@ Class {
 		'pyramidFirstLevelElementsChangedAction',
 		'pyramidSelectionChangedAction'
 	],
-	#category : #'Pyramid-Tests-cases-models'
+	#category : 'Pyramid-Tests-cases-models'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidProjectModelTest.class.st b/src/Pyramid-Tests/PyramidProjectModelTest.class.st
index d8625721..8b2401ec 100644
--- a/src/Pyramid-Tests/PyramidProjectModelTest.class.st
+++ b/src/Pyramid-Tests/PyramidProjectModelTest.class.st
@@ -8,7 +8,7 @@ Class {
 		'pyramidFirstLevelElementsChanged',
 		'pyramidSelectionChanged'
 	],
-	#category : #'Pyramid-Tests-cases-models'
+	#category : 'Pyramid-Tests-cases-models'
 }
 
 { #category : #running }
diff --git a/src/Pyramid-Tests/PyramidPropertiesManagerTest.class.st b/src/Pyramid-Tests/PyramidPropertiesManagerTest.class.st
index 8a704bc4..41fdca08 100644
--- a/src/Pyramid-Tests/PyramidPropertiesManagerTest.class.st
+++ b/src/Pyramid-Tests/PyramidPropertiesManagerTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidPropertiesManagerTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-property'
+	#category : 'Pyramid-Tests-cases-property'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st b/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st
index b7145a1b..c62043bf 100644
--- a/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-layout'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-layout'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st b/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st
index e375e6c2..b95c8126 100644
--- a/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-layout'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-layout'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st b/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st
index 30f24257..8c195544 100644
--- a/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidRemoveMockCommandTest.class.st b/src/Pyramid-Tests/PyramidRemoveMockCommandTest.class.st
index 8853340f..ee166273 100644
--- a/src/Pyramid-Tests/PyramidRemoveMockCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidRemoveMockCommandTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidRemoveMockCommandTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st b/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st
index 18aa0bb1..4ef63b7a 100644
--- a/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st b/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st
index 68db7048..845cd011 100644
--- a/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-geometry'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-geometry'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidSaveModelVerifierTest.class.st b/src/Pyramid-Tests/PyramidSaveModelVerifierTest.class.st
index 7be7dfbf..b9342ec4 100644
--- a/src/Pyramid-Tests/PyramidSaveModelVerifierTest.class.st
+++ b/src/Pyramid-Tests/PyramidSaveModelVerifierTest.class.st
@@ -4,7 +4,7 @@ A PyramidSaveModelVerifierTest is a test class for testing the behavior of Pyram
 Class {
 	#name : #PyramidSaveModelVerifierTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-plugin-save'
+	#category : 'Pyramid-Tests-cases-plugin-save'
 }
 
 { #category : #test }
diff --git a/src/Pyramid-Tests/PyramidSavingServiceTest.class.st b/src/Pyramid-Tests/PyramidSavingServiceTest.class.st
index 807183b2..7b2b52ee 100644
--- a/src/Pyramid-Tests/PyramidSavingServiceTest.class.st
+++ b/src/Pyramid-Tests/PyramidSavingServiceTest.class.st
@@ -6,7 +6,7 @@ Class {
 		'savingService',
 		'savingClass'
 	],
-	#category : #'Pyramid-Tests-cases-plugin-save'
+	#category : 'Pyramid-Tests-cases-plugin-save'
 }
 
 { #category : #running }
diff --git a/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st b/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st
index abf1e620..19f714d0 100644
--- a/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st
+++ b/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidSimpleMockCommand,
 	#superclass : #PyramidMockCommand,
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidSimpleMockCommandTest.class.st b/src/Pyramid-Tests/PyramidSimpleMockCommandTest.class.st
index ef6f433c..87864823 100644
--- a/src/Pyramid-Tests/PyramidSimpleMockCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidSimpleMockCommandTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidSimpleMockCommandTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st b/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st
index 84fcebb0..f1e4a1a1 100644
--- a/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st
+++ b/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidSimpleMockGroupedCommand,
 	#superclass : #PyramidSimpleMockCommand,
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidSpCodeObjectInteractionModelTest.class.st b/src/Pyramid-Tests/PyramidSpCodeObjectInteractionModelTest.class.st
index 5c79f0fb..22e3ae0b 100644
--- a/src/Pyramid-Tests/PyramidSpCodeObjectInteractionModelTest.class.st
+++ b/src/Pyramid-Tests/PyramidSpCodeObjectInteractionModelTest.class.st
@@ -6,7 +6,7 @@ Class {
 		'interactionModel',
 		'firstLevelElements'
 	],
-	#category : #'Pyramid-Tests-cases-plugin-playground'
+	#category : 'Pyramid-Tests-cases-plugin-playground'
 }
 
 { #category : #running }
diff --git a/src/Pyramid-Tests/PyramidSpaceBuilderTest.class.st b/src/Pyramid-Tests/PyramidSpaceBuilderTest.class.st
index 7d0700dd..7f32f081 100644
--- a/src/Pyramid-Tests/PyramidSpaceBuilderTest.class.st
+++ b/src/Pyramid-Tests/PyramidSpaceBuilderTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidSpaceBuilderTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-plugin-space'
+	#category : 'Pyramid-Tests-cases-plugin-space'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidSpacePluginTest.class.st b/src/Pyramid-Tests/PyramidSpacePluginTest.class.st
index 45aac1df..e4721cc2 100644
--- a/src/Pyramid-Tests/PyramidSpacePluginTest.class.st
+++ b/src/Pyramid-Tests/PyramidSpacePluginTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidSpacePluginTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-plugin-space'
+	#category : 'Pyramid-Tests-cases-plugin-space'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidSwitchInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidSwitchInputPresenterTest.class.st
index 4a26981c..403fe8ff 100644
--- a/src/Pyramid-Tests/PyramidSwitchInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidSwitchInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidTestWindow.class.st b/src/Pyramid-Tests/PyramidTestWindow.class.st
index 29462407..1d18faa0 100644
--- a/src/Pyramid-Tests/PyramidTestWindow.class.st
+++ b/src/Pyramid-Tests/PyramidTestWindow.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidTestWindow,
 	#superclass : #PyramidWindow,
-	#category : #'Pyramid-Tests-cases-views'
+	#category : 'Pyramid-Tests-cases-views'
 }
 
 { #category : #initialization }
diff --git a/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st b/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st
index 36b77372..43d35800 100644
--- a/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidFontAttributeCommandTest',
 	#classTraits : 'TPyramidFontAttributeCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-text'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-text'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/PyramidTextInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidTextInputPresenterTest.class.st
index 6ca9d02b..8bfe7ddf 100644
--- a/src/Pyramid-Tests/PyramidTextInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidTextInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidTreePluginTest.class.st b/src/Pyramid-Tests/PyramidTreePluginTest.class.st
index e3cae686..2d78c2bf 100644
--- a/src/Pyramid-Tests/PyramidTreePluginTest.class.st
+++ b/src/Pyramid-Tests/PyramidTreePluginTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidTreePluginTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-plugin-tree-library'
+	#category : 'Pyramid-Tests-cases-plugin-tree-library'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidVerticalFrameConstraintsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidVerticalFrameConstraintsInputPresenterTest.class.st
index 54377d79..bb0e4779 100644
--- a/src/Pyramid-Tests/PyramidVerticalFrameConstraintsInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidVerticalFrameConstraintsInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st b/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st
index abca3c83..b0cef520 100644
--- a/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidVisibilityInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidVisibilityInputPresenterTest.class.st
index 332e72f0..16b09cbb 100644
--- a/src/Pyramid-Tests/PyramidVisibilityInputPresenterTest.class.st
+++ b/src/Pyramid-Tests/PyramidVisibilityInputPresenterTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidInputPresenterTest',
 	#classTraits : 'TPyramidInputPresenterTest classTrait',
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/PyramidVisibilitySortFunctionTest.class.st b/src/Pyramid-Tests/PyramidVisibilitySortFunctionTest.class.st
index ec815c10..3c173d02 100644
--- a/src/Pyramid-Tests/PyramidVisibilitySortFunctionTest.class.st
+++ b/src/Pyramid-Tests/PyramidVisibilitySortFunctionTest.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #PyramidVisibilitySortFunctionTest,
 	#superclass : #TestCase,
-	#category : #'Pyramid-Tests-cases-bloc-utils'
+	#category : 'Pyramid-Tests-cases-bloc-utils'
 }
 
 { #category : #tests }
diff --git a/src/Pyramid-Tests/PyramidWindowTest.class.st b/src/Pyramid-Tests/PyramidWindowTest.class.st
index 2ad1b041..8f51fec4 100644
--- a/src/Pyramid-Tests/PyramidWindowTest.class.st
+++ b/src/Pyramid-Tests/PyramidWindowTest.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'window'
 	],
-	#category : #'Pyramid-Tests-cases-views'
+	#category : 'Pyramid-Tests-cases-views'
 }
 
 { #category : #running }
diff --git a/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st b/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st
index ccb5fe23..4f15146b 100644
--- a/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st
+++ b/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st
@@ -3,7 +3,7 @@ Class {
 	#superclass : #TestCase,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc'
+	#category : 'Pyramid-Tests-cases-plugin-bloc'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Tests/TPyramidCommandTest.trait.st b/src/Pyramid-Tests/TPyramidCommandTest.trait.st
index fb408590..54ed130f 100644
--- a/src/Pyramid-Tests/TPyramidCommandTest.trait.st
+++ b/src/Pyramid-Tests/TPyramidCommandTest.trait.st
@@ -1,6 +1,6 @@
 Trait {
 	#name : #TPyramidCommandTest,
-	#category : #'Pyramid-Tests-cases-command'
+	#category : 'Pyramid-Tests-cases-command'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/TPyramidFontAttributeCommandTest.trait.st b/src/Pyramid-Tests/TPyramidFontAttributeCommandTest.trait.st
index 0c0f1863..371f6b73 100644
--- a/src/Pyramid-Tests/TPyramidFontAttributeCommandTest.trait.st
+++ b/src/Pyramid-Tests/TPyramidFontAttributeCommandTest.trait.st
@@ -2,7 +2,7 @@ Trait {
 	#name : #TPyramidFontAttributeCommandTest,
 	#traits : 'TPyramidCommandTest',
 	#classTraits : 'TPyramidCommandTest classTrait',
-	#category : #'Pyramid-Tests-cases-plugin-bloc-text'
+	#category : 'Pyramid-Tests-cases-plugin-bloc-text'
 }
 
 { #category : #'as yet unclassified' }
diff --git a/src/Pyramid-Tests/TPyramidInputPresenterTest.trait.st b/src/Pyramid-Tests/TPyramidInputPresenterTest.trait.st
index 9373bc0b..7f1e6d5e 100644
--- a/src/Pyramid-Tests/TPyramidInputPresenterTest.trait.st
+++ b/src/Pyramid-Tests/TPyramidInputPresenterTest.trait.st
@@ -1,6 +1,6 @@
 Trait {
 	#name : #TPyramidInputPresenterTest,
-	#category : #'Pyramid-Tests-cases-specs-custom'
+	#category : 'Pyramid-Tests-cases-specs-custom'
 }
 
 { #category : #accessing }
diff --git a/src/Pyramid-Toplo-Examples/PyramidToploExamples.class.st b/src/Pyramid-Toplo-Examples/PyramidToploExamples.class.st
index 1991336c..f9606da8 100644
--- a/src/Pyramid-Toplo-Examples/PyramidToploExamples.class.st
+++ b/src/Pyramid-Toplo-Examples/PyramidToploExamples.class.st
@@ -1,11 +1,10 @@
 Class {
-	#name : 'PyramidToploExamples',
-	#superclass : 'Object',
-	#category : 'Pyramid-Toplo-Examples',
-	#package : 'Pyramid-Toplo-Examples'
+	#name : #PyramidToploExamples,
+	#superclass : #Object,
+	#category : #'Pyramid-Toplo-Examples'
 }
 
-{ #category : 'pyramid-serialized-bloc' }
+{ #category : #'pyramid-serialized-bloc' }
 PyramidToploExamples class >> buttons [
 <pyStash>
 	^ [ "BlStashSerializer"
@@ -54,12 +53,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -104,12 +101,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -143,12 +138,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -177,12 +170,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -208,12 +199,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -261,12 +250,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -294,12 +281,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -331,12 +316,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -367,12 +350,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -398,12 +379,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -444,12 +423,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -475,12 +452,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -514,12 +489,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -545,12 +518,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
@@ -576,12 +547,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new.
                   constraints vertical exact: 32.0.
                   constraints padding: blinsets1 ];
                beHorizontal;
-               beIconFirst;
                flexible: false;
                icon: nil;
                iconContainerHeight: 0.0;
                iconContainerWidth: 0.0;
-               interspace: 0.0 @ 0.0;
                label: (ToLabel new
                      layout: blframelayout5;
                      constraintsDo: [:constraints |  constraints horizontal fitContent.
diff --git a/src/Pyramid-Toplo-Examples/package.st b/src/Pyramid-Toplo-Examples/package.st
index 992899b5..a1c8a7af 100644
--- a/src/Pyramid-Toplo-Examples/package.st
+++ b/src/Pyramid-Toplo-Examples/package.st
@@ -1 +1 @@
-Package { #name : 'Pyramid-Toplo-Examples' }
+Package { #name : #'Pyramid-Toplo-Examples' }
diff --git a/src/Pyramid/PyramidAbstractMemento.class.st b/src/Pyramid/PyramidAbstractMemento.class.st
index 3e9a2857..34aead3d 100644
--- a/src/Pyramid/PyramidAbstractMemento.class.st
+++ b/src/Pyramid/PyramidAbstractMemento.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidAbstractMemento',
-	#superclass : 'Object',
-	#category : 'Pyramid-history',
-	#package : 'Pyramid',
-	#tag : 'history'
+	#name : #PyramidAbstractMemento,
+	#superclass : #Object,
+	#category : #'Pyramid-history'
 }
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidAbstractMemento class >> isAbstract [
 
 	^ self == PyramidAbstractMemento
 ]
 
-{ #category : 'visiting' }
+{ #category : #visiting }
 PyramidAbstractMemento >> accept: aVisitor [
 
 	^ self shouldBeImplemented
 ]
 
-{ #category : 'window management' }
+{ #category : #'window management' }
 PyramidAbstractMemento >> restore [
 
 	self shouldBeImplemented
diff --git a/src/Pyramid/PyramidAddAllToCollectionCommand.class.st b/src/Pyramid/PyramidAddAllToCollectionCommand.class.st
index b6a14472..b4a0224b 100644
--- a/src/Pyramid/PyramidAddAllToCollectionCommand.class.st
+++ b/src/Pyramid/PyramidAddAllToCollectionCommand.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidAddAllToCollectionCommand',
-	#superclass : 'PyramidCollectionCommand',
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#name : #PyramidAddAllToCollectionCommand,
+	#superclass : #PyramidCollectionCommand,
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidAddAllToCollectionCommand >> commandInverse [
 
 	^ PyramidRemoveAllFromCollectionCommand new
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidAddAllToCollectionCommand >> getValueFor: anObject [
 
 	^ nil
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidAddAllToCollectionCommand >> setValueFor: anObject with: anArgument [
 
 	anObject addAll: anArgument
diff --git a/src/Pyramid/PyramidAddToCollectionCommand.class.st b/src/Pyramid/PyramidAddToCollectionCommand.class.st
index 8028f80a..c1eb5377 100644
--- a/src/Pyramid/PyramidAddToCollectionCommand.class.st
+++ b/src/Pyramid/PyramidAddToCollectionCommand.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidAddToCollectionCommand',
-	#superclass : 'PyramidCollectionCommand',
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#name : #PyramidAddToCollectionCommand,
+	#superclass : #PyramidCollectionCommand,
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidAddToCollectionCommand >> commandInverse [
 
 	^ PyramidRemoveFromCollectionCommand new
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidAddToCollectionCommand >> getValueFor: anObject [
 
 	^ nil
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidAddToCollectionCommand >> setValueFor: anObject with: anArgument [
 
 	anObject add: anArgument
diff --git a/src/Pyramid/PyramidCallbackCommandExecutor.class.st b/src/Pyramid/PyramidCallbackCommandExecutor.class.st
index 5aa440b5..01669d1d 100644
--- a/src/Pyramid/PyramidCallbackCommandExecutor.class.st
+++ b/src/Pyramid/PyramidCallbackCommandExecutor.class.st
@@ -1,47 +1,45 @@
 Class {
-	#name : 'PyramidCallbackCommandExecutor',
-	#superclass : 'PyramidCommandExecutorDecorator',
+	#name : #PyramidCallbackCommandExecutor,
+	#superclass : #PyramidCommandExecutorDecorator,
 	#instVars : [
 		'beforeDo',
 		'afterDo'
 	],
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCallbackCommandExecutor >> afterDo [
 
 	^ afterDo
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCallbackCommandExecutor >> afterDo: anObject [
 
 	afterDo := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCallbackCommandExecutor >> beforeDo [
 
 	^ beforeDo
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCallbackCommandExecutor >> beforeDo: anObject [
 
 	beforeDo := anObject
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidCallbackCommandExecutor >> initialize [
 
 	afterDo := [  ].
 	beforeDo := [  ]
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCallbackCommandExecutor >> use: aCommand on: aCollection with: arguments [
 
 	self beforeDo value.
diff --git a/src/Pyramid/PyramidCluster.class.st b/src/Pyramid/PyramidCluster.class.st
index 340fb16a..b008d470 100644
--- a/src/Pyramid/PyramidCluster.class.st
+++ b/src/Pyramid/PyramidCluster.class.st
@@ -1,25 +1,23 @@
 Class {
-	#name : 'PyramidCluster',
-	#superclass : 'Object',
+	#name : #PyramidCluster,
+	#superclass : #Object,
 	#instVars : [
 		'allTargets',
 		'groups',
 		'groupedAssociations',
 		'individualAssociations'
 	],
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCluster >> allTargets [
 	"Collection of all targets of the cluster"
 
 	^ allTargets
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCluster >> groupedAssociations [
 	"Collection of association with:
 	- key: anArgument
@@ -28,14 +26,14 @@ PyramidCluster >> groupedAssociations [
 	^ groupedAssociations
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCluster >> groups [
 	"Collection of all groups of the cluster. By default the #getValueFor: result."
 
 	^ groups
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCluster >> individualAssociations [
 	"Collection of association with:
 	- key: anArgument
@@ -44,7 +42,7 @@ PyramidCluster >> individualAssociations [
 	^ individualAssociations
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidCluster >> initialize [
 
 	allTargets := OrderedCollection new.
@@ -53,26 +51,26 @@ PyramidCluster >> initialize [
 	individualAssociations := OrderedCollection new
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidCluster >> isEmpty [
 
 	^ self groups isEmpty
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidCluster >> isNotEmpty [
 
 	^ self isEmpty not
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidCluster >> isTargetsSameArguments [
 	"true if all targets have the same argument."
 
 	^ self groups size = 1
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCluster >> register: aTarget forArguments: anArguments [
 
 	(self allTargets includes: aTarget) ifTrue: [ ^ self ].
@@ -89,7 +87,7 @@ PyramidCluster >> register: aTarget forArguments: anArguments [
 				yourself ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCluster >> size [
 
 	^ self allTargets size
diff --git a/src/Pyramid/PyramidCollectionCommand.class.st b/src/Pyramid/PyramidCollectionCommand.class.st
index 1ccd0c24..3a225279 100644
--- a/src/Pyramid/PyramidCollectionCommand.class.st
+++ b/src/Pyramid/PyramidCollectionCommand.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidCollectionCommand',
-	#superclass : 'PyramidCommand',
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#name : #PyramidCollectionCommand,
+	#superclass : #PyramidCommand,
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidCollectionCommand class >> isAbstract [
 
 	^ self == PyramidCollectionCommand
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidCollectionCommand >> canBeUsedFor: anObject [
 
 	^ anObject isCollection
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCollectionCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: anArguments [
 
 	| mementos |
diff --git a/src/Pyramid/PyramidCollectionWithCallbacks.class.st b/src/Pyramid/PyramidCollectionWithCallbacks.class.st
index 5ee05436..fb260465 100644
--- a/src/Pyramid/PyramidCollectionWithCallbacks.class.st
+++ b/src/Pyramid/PyramidCollectionWithCallbacks.class.st
@@ -1,16 +1,14 @@
 Class {
-	#name : 'PyramidCollectionWithCallbacks',
-	#superclass : 'SequenceableCollection',
+	#name : #PyramidCollectionWithCallbacks,
+	#superclass : #SequenceableCollection,
 	#instVars : [
 		'collection',
 		'subscriptions'
 	],
-	#category : 'Pyramid-models',
-	#package : 'Pyramid',
-	#tag : 'models'
+	#category : #'Pyramid-models'
 }
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidCollectionWithCallbacks >> add: newObject [
 
 	| result |
@@ -19,7 +17,7 @@ PyramidCollectionWithCallbacks >> add: newObject [
 	^ result
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidCollectionWithCallbacks >> addAll: newObjects [
 
 	| result |
@@ -29,32 +27,32 @@ PyramidCollectionWithCallbacks >> addAll: newObjects [
 	^ result
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCollectionWithCallbacks >> at: anInteger [
 
 	^ self collection at: anInteger
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCollectionWithCallbacks >> collection [
 
 	^ collection
 ]
 
-{ #category : 'enumerating' }
+{ #category : #enumerating }
 PyramidCollectionWithCallbacks >> do: aBlock [
 
 	^ self collection do: aBlock
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidCollectionWithCallbacks >> initialize [
 
 	collection := OrderedCollection new.
 	subscriptions := Dictionary new
 ]
 
-{ #category : 'removing' }
+{ #category : #removing }
 PyramidCollectionWithCallbacks >> remove: oldObject [
 
 	| result |
@@ -63,7 +61,7 @@ PyramidCollectionWithCallbacks >> remove: oldObject [
 	^ result
 ]
 
-{ #category : 'removing' }
+{ #category : #removing }
 PyramidCollectionWithCallbacks >> remove: oldObject ifAbsent: anExceptionBlock [
 
 	| result |
@@ -74,7 +72,7 @@ PyramidCollectionWithCallbacks >> remove: oldObject ifAbsent: anExceptionBlock [
 	^ result
 ]
 
-{ #category : 'removing' }
+{ #category : #removing }
 PyramidCollectionWithCallbacks >> removeAll [
 
 	| result |
@@ -84,7 +82,7 @@ PyramidCollectionWithCallbacks >> removeAll [
 	^ result
 ]
 
-{ #category : 'removing' }
+{ #category : #removing }
 PyramidCollectionWithCallbacks >> removeAll: oldObjects [
 
 	| result |
@@ -94,7 +92,7 @@ PyramidCollectionWithCallbacks >> removeAll: oldObjects [
 	^ result
 ]
 
-{ #category : 'removing' }
+{ #category : #removing }
 PyramidCollectionWithCallbacks >> replaceAll: newObjects [
 
 	| result |
@@ -106,31 +104,31 @@ PyramidCollectionWithCallbacks >> replaceAll: newObjects [
 	^ result
 ]
 
-{ #category : 'signalling' }
+{ #category : #signalling }
 PyramidCollectionWithCallbacks >> signalChanged [
 
 	self subscriptions do: [ :callback | callback value ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCollectionWithCallbacks >> size [ 
 
 ^ self collection size
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCollectionWithCallbacks >> subscribe: anObject withCallback: aBlock [
 
 	self subscriptions at: anObject ifPresent: [ Error signal: 'Already subscribed.' ] ifAbsentPut: [ aBlock ]
 	
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCollectionWithCallbacks >> subscriptions [
 ^ subscriptions
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCollectionWithCallbacks >> unsubscribe: anObject [
 
 	self subscriptions
diff --git a/src/Pyramid/PyramidColorInputMultiLinesPresenter.class.st b/src/Pyramid/PyramidColorInputMultiLinesPresenter.class.st
index e01fa91e..c9ef304d 100644
--- a/src/Pyramid/PyramidColorInputMultiLinesPresenter.class.st
+++ b/src/Pyramid/PyramidColorInputMultiLinesPresenter.class.st
@@ -1,23 +1,21 @@
 Class {
-	#name : 'PyramidColorInputMultiLinesPresenter',
-	#superclass : 'PyramidInputPresenter',
+	#name : #PyramidColorInputMultiLinesPresenter,
+	#superclass : #PyramidInputPresenter,
 	#instVars : [
 		'hexaInput',
 		'colorInput',
 		'whenValueChangedDo'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputMultiLinesPresenter >> colorInput [
 
 	^ colorInput
 ]
 
-{ #category : 'layout' }
+{ #category : #layout }
 PyramidColorInputMultiLinesPresenter >> defaultLayout [
 
 	^ SpBoxLayout newVertical
@@ -27,13 +25,13 @@ PyramidColorInputMultiLinesPresenter >> defaultLayout [
 		  yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputMultiLinesPresenter >> hexaInput [
 
 	^ hexaInput
 ]
 
-{ #category : 'initialization - deprecated' }
+{ #category : #'initialization - deprecated' }
 PyramidColorInputMultiLinesPresenter >> initializePresenters [
 
 	whenValueChangedDo := [ :color |  ].
@@ -50,26 +48,26 @@ PyramidColorInputMultiLinesPresenter >> initializePresenters [
 	self value: Color red
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputMultiLinesPresenter >> value [
 
 	^ self hexaInput value
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputMultiLinesPresenter >> value: aColor [
 
 	self colorInput value: aColor.
 	self hexaInput value: aColor
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputMultiLinesPresenter >> whenValueChangedDo [
 
 	^ whenValueChangedDo
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputMultiLinesPresenter >> whenValueChangedDo: anObject [
 
 	whenValueChangedDo := anObject
diff --git a/src/Pyramid/PyramidColorInputPresenter.class.st b/src/Pyramid/PyramidColorInputPresenter.class.st
index 6b78f096..5a938884 100644
--- a/src/Pyramid/PyramidColorInputPresenter.class.st
+++ b/src/Pyramid/PyramidColorInputPresenter.class.st
@@ -1,30 +1,28 @@
 Class {
-	#name : 'PyramidColorInputPresenter',
-	#superclass : 'PyramidInputPresenter',
+	#name : #PyramidColorInputPresenter,
+	#superclass : #PyramidInputPresenter,
 	#instVars : [
 		'aMorph',
 		'hMorph',
 		'svMorph',
 		'whenValueChangedDo'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputPresenter >> aMorph [
 
 	^ aMorph
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputPresenter >> alphaSelected: aScale [
 
 	self whenValueChangedDo value: self value.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputPresenter >> colorSelected: aColor [
 	"A color has been selected. Make the hue match."
 
@@ -35,12 +33,12 @@ PyramidColorInputPresenter >> colorSelected: aColor [
 	self aMorph color: aColor
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidColorInputPresenter >> defaultColor [
 ^ Color red
 ]
 
-{ #category : 'layout' }
+{ #category : #layout }
 PyramidColorInputPresenter >> defaultLayout [
 
 	^ SpBoxLayout newVertical spacing: 4;
@@ -50,13 +48,13 @@ PyramidColorInputPresenter >> defaultLayout [
 		  yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputPresenter >> hMorph [
 
 	^ hMorph
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputPresenter >> hue: aFloat [
 	"Set the hue in the range 0.0 - 1.0. Update the SV morph and hMorph."
 
@@ -64,7 +62,7 @@ PyramidColorInputPresenter >> hue: aFloat [
 	self svMorph color: (Color h: aFloat * 359.9 s: 1.0 v: 1.0)
 ]
 
-{ #category : 'initialization - deprecated' }
+{ #category : #'initialization - deprecated' }
 PyramidColorInputPresenter >> initializePresenter [
 
 	whenValueChangedDo := [ :color | ].
@@ -82,20 +80,20 @@ PyramidColorInputPresenter >> initializePresenter [
 	self value: self defaultColor
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputPresenter >> svMorph [
 
 	^ svMorph
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputPresenter >> value [
 	"Answer the selected color."
 
 	^ self svMorph selectedColor alpha: self aMorph value
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputPresenter >> value: aColor [
 	"Set the hue and sv components."
 	| whenValueChangedDoTemp |
@@ -109,13 +107,13 @@ PyramidColorInputPresenter >> value: aColor [
 	self aMorph value: aColor alpha] ensure: [ self whenValueChangedDo: whenValueChangedDoTemp ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputPresenter >> whenValueChangedDo [
 
 	^ whenValueChangedDo
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputPresenter >> whenValueChangedDo: anObject [
 
 	whenValueChangedDo := anObject
diff --git a/src/Pyramid/PyramidColorInputSingleLinePresenter.class.st b/src/Pyramid/PyramidColorInputSingleLinePresenter.class.st
index 0fc134bb..a8e43c2a 100644
--- a/src/Pyramid/PyramidColorInputSingleLinePresenter.class.st
+++ b/src/Pyramid/PyramidColorInputSingleLinePresenter.class.st
@@ -1,31 +1,29 @@
 Class {
-	#name : 'PyramidColorInputSingleLinePresenter',
-	#superclass : 'PyramidInputPresenter',
+	#name : #PyramidColorInputSingleLinePresenter,
+	#superclass : #PyramidInputPresenter,
 	#instVars : [
 		'hexInput',
 		'alphaInput',
 		'previewPresenter',
 		'whenValueChangedDo'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputSingleLinePresenter >> alphaInput [
 
 	^ alphaInput
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputSingleLinePresenter >> applyStrings [
 
 	self alphaInput strings: self strings.
 	self hexInput strings: self strings
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputSingleLinePresenter >> cleanHexValue: aString [
 
 	| cleanString |
@@ -43,7 +41,7 @@ PyramidColorInputSingleLinePresenter >> cleanHexValue: aString [
 	^ cleanString
 ]
 
-{ #category : 'layout' }
+{ #category : #layout }
 PyramidColorInputSingleLinePresenter >> defaultLayout [
 
 	^ SpBoxLayout newHorizontal
@@ -54,13 +52,13 @@ PyramidColorInputSingleLinePresenter >> defaultLayout [
 		  yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputSingleLinePresenter >> hexInput [
 
 	^ hexInput
 ]
 
-{ #category : 'initialization - deprecated' }
+{ #category : #'initialization - deprecated' }
 PyramidColorInputSingleLinePresenter >> initializePresenter [
 
 	whenValueChangedDo := [ :c |  ].
@@ -84,13 +82,13 @@ PyramidColorInputSingleLinePresenter >> initializePresenter [
 		self updatePreview ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputSingleLinePresenter >> previewPresenter [
 
 	^ previewPresenter
 ]
 
-{ #category : 'actions' }
+{ #category : #actions }
 PyramidColorInputSingleLinePresenter >> updatePreview [
 
 	| color |
@@ -99,7 +97,7 @@ PyramidColorInputSingleLinePresenter >> updatePreview [
 	self previewPresenter morph color: self value
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputSingleLinePresenter >> value [
 
 	| color alpha |
@@ -112,7 +110,7 @@ PyramidColorInputSingleLinePresenter >> value [
 	^ color alpha: (alpha / 100 min: 1 max: 0).
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputSingleLinePresenter >> value: aColor [
 
 	aColor isColor ifFalse: [
@@ -123,13 +121,13 @@ PyramidColorInputSingleLinePresenter >> value: aColor [
 	self updatePreview
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputSingleLinePresenter >> whenValueChangedDo [
 
 	^ whenValueChangedDo
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputSingleLinePresenter >> whenValueChangedDo: aBlock [
 
 	whenValueChangedDo := aBlock
diff --git a/src/Pyramid/PyramidColorInputSingleLineWithPickupButtonPresenter.class.st b/src/Pyramid/PyramidColorInputSingleLineWithPickupButtonPresenter.class.st
index fe4a046e..714b612e 100644
--- a/src/Pyramid/PyramidColorInputSingleLineWithPickupButtonPresenter.class.st
+++ b/src/Pyramid/PyramidColorInputSingleLineWithPickupButtonPresenter.class.st
@@ -1,30 +1,28 @@
 Class {
-	#name : 'PyramidColorInputSingleLineWithPickupButtonPresenter',
-	#superclass : 'PyramidInputPresenter',
+	#name : #PyramidColorInputSingleLineWithPickupButtonPresenter,
+	#superclass : #PyramidInputPresenter,
 	#instVars : [
 		'singleLineInput',
 		'button',
 		'multiLinesInput',
 		'whenValueChangedDo'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> applytStrings [
 
 	self singleLineInput strings: self strings.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> button [
 
 	^ button
 ]
 
-{ #category : 'layout' }
+{ #category : #layout }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> defaultLayout [
 
 	^ SpBoxLayout newVertical add: (SpBoxLayout newHorizontal
@@ -34,7 +32,7 @@ PyramidColorInputSingleLineWithPickupButtonPresenter >> defaultLayout [
 		  yourself) height: 24
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> initializePresenters [
 
 	whenValueChangedDo := [ :color |  ].
@@ -53,13 +51,13 @@ PyramidColorInputSingleLineWithPickupButtonPresenter >> initializePresenters [
 	self value: Color red
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> multiLinesInput [
 
 	^ multiLinesInput
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> openMultiLinesModal [
 
 	| dialog color window |
@@ -74,32 +72,32 @@ PyramidColorInputSingleLineWithPickupButtonPresenter >> openMultiLinesModal [
 		ifFalse: [ self multiLinesInput value: self singleLineInput value ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> singleLineInput [
 
 	^ singleLineInput
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> value [
 
 	^ self singleLineInput value
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> value: aColor [
 
 	self singleLineInput value: aColor.
 	self multiLinesInput value: aColor 
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> whenValueChangedDo [
 
 	^ whenValueChangedDo
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidColorInputSingleLineWithPickupButtonPresenter >> whenValueChangedDo: anObject [
 
 	whenValueChangedDo := anObject
diff --git a/src/Pyramid/PyramidCommand.class.st b/src/Pyramid/PyramidCommand.class.st
index b8c5585d..4bf754c6 100644
--- a/src/Pyramid/PyramidCommand.class.st
+++ b/src/Pyramid/PyramidCommand.class.st
@@ -10,26 +10,24 @@ In some rare case, the method saveStatesOf: aCollection withCommand: aCommand wi
 
 "
 Class {
-	#name : 'PyramidCommand',
-	#superclass : 'Object',
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#name : #PyramidCommand,
+	#superclass : #Object,
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidCommand class >> isAbstract [
 
 	^ self == PyramidCommand
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidCommand >> canBeUsedFor: anObject [
 
 	^ self shouldBeImplemented
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCommand >> clusterOf: aCollection [
 
 	| users cluster |
@@ -42,25 +40,25 @@ PyramidCommand >> clusterOf: aCollection [
 	^ cluster
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCommand >> commandInverse [
 
 	^ self
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCommand >> getGroupedValueFor: anObject [
 
 	^ self getValueFor: anObject
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCommand >> getValueFor: anObject [
 
 	^ self shouldBeImplemented
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCommand >> saveStatesOf: aCollection with: arguments [
 
 	^ self
@@ -69,7 +67,7 @@ PyramidCommand >> saveStatesOf: aCollection with: arguments [
 		  withArguments: arguments
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: anArguments [
 
 	| mementos |
@@ -85,19 +83,19 @@ PyramidCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments:
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCommand >> saveStatesWithCommandInverseOf: aCollection with: arguments [
 
 	^ self saveStatesOf: aCollection withCommand: self commandInverse withArguments: arguments
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCommand >> setValueFor: anObject with: anArgument [
 
 	self shouldBeImplemented
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCommand >> useOn: aCollection with: anArgument [
 
 	aCollection do: [ :each | self setValueFor: each with: anArgument ]
diff --git a/src/Pyramid/PyramidCommandExecutor.class.st b/src/Pyramid/PyramidCommandExecutor.class.st
index a13e4782..8c3a2038 100644
--- a/src/Pyramid/PyramidCommandExecutor.class.st
+++ b/src/Pyramid/PyramidCommandExecutor.class.st
@@ -5,20 +5,18 @@ I’m an abstract class use to define the API.
 
 "
 Class {
-	#name : 'PyramidCommandExecutor',
-	#superclass : 'Object',
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#name : #PyramidCommandExecutor,
+	#superclass : #Object,
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidCommandExecutor class >> isAbstract [
 
 	^ self == PyramidCommandExecutor
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidCommandExecutor >> use: aCommand on: aCollection with: arguments [
 
 	self shouldBeImplemented
diff --git a/src/Pyramid/PyramidCommandExecutorDecorator.class.st b/src/Pyramid/PyramidCommandExecutorDecorator.class.st
index 91bd251e..ec7ddd8a 100644
--- a/src/Pyramid/PyramidCommandExecutorDecorator.class.st
+++ b/src/Pyramid/PyramidCommandExecutorDecorator.class.st
@@ -3,29 +3,27 @@ I‘m a decorator for the `PyramidMainCommandExecutor`. The wrappe is either the
 
 "
 Class {
-	#name : 'PyramidCommandExecutorDecorator',
-	#superclass : 'PyramidCommandExecutor',
+	#name : #PyramidCommandExecutorDecorator,
+	#superclass : #PyramidCommandExecutor,
 	#instVars : [
 		'wrappee'
 	],
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidCommandExecutorDecorator class >> isAbstract [
 
 	^ self == PyramidCommandExecutorDecorator
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCommandExecutorDecorator >> wrappee [
 
 	^ wrappee
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCommandExecutorDecorator >> wrappee: anObject [
 
 	wrappee := anObject
diff --git a/src/Pyramid/PyramidCommandMemento.class.st b/src/Pyramid/PyramidCommandMemento.class.st
index f0fb4538..ad4e0420 100644
--- a/src/Pyramid/PyramidCommandMemento.class.st
+++ b/src/Pyramid/PyramidCommandMemento.class.st
@@ -1,59 +1,57 @@
 Class {
-	#name : 'PyramidCommandMemento',
-	#superclass : 'PyramidAbstractMemento',
+	#name : #PyramidCommandMemento,
+	#superclass : #PyramidAbstractMemento,
 	#instVars : [
 		'command',
 		'target',
 		'arguments'
 	],
-	#category : 'Pyramid-history',
-	#package : 'Pyramid',
-	#tag : 'history'
+	#category : #'Pyramid-history'
 }
 
-{ #category : 'visiting' }
+{ #category : #visiting }
 PyramidCommandMemento >> accept: aVisitor [
 
 	^ aVisitor visitCommandMemento: self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCommandMemento >> arguments [
 
 	^ arguments
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCommandMemento >> arguments: anObject [
 
 	arguments := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCommandMemento >> command [
 
 	^ command
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCommandMemento >> command: anObject [
 
 	command := anObject
 ]
 
-{ #category : 'window management' }
+{ #category : #'window management' }
 PyramidCommandMemento >> restore [
 
 	self command setValueFor: self target with: self arguments
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCommandMemento >> target [
 
 	^ target
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCommandMemento >> target: anObject [
 
 	target := anObject
diff --git a/src/Pyramid/PyramidCompositeMemento.class.st b/src/Pyramid/PyramidCompositeMemento.class.st
index 4050380c..f3eb07f9 100644
--- a/src/Pyramid/PyramidCompositeMemento.class.st
+++ b/src/Pyramid/PyramidCompositeMemento.class.st
@@ -1,39 +1,37 @@
 Class {
-	#name : 'PyramidCompositeMemento',
-	#superclass : 'PyramidAbstractMemento',
+	#name : #PyramidCompositeMemento,
+	#superclass : #PyramidAbstractMemento,
 	#instVars : [
 		'mementos'
 	],
-	#category : 'Pyramid-history',
-	#package : 'Pyramid',
-	#tag : 'history'
+	#category : #'Pyramid-history'
 }
 
-{ #category : 'visiting' }
+{ #category : #visiting }
 PyramidCompositeMemento >> accept: aVisitor [
 
 	^ aVisitor visitCompositeMemento: self
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidCompositeMemento >> initialize [
 
 	mementos := OrderedCollection new.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCompositeMemento >> mementos [
 
 	^ mementos
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidCompositeMemento >> mementos: anObject [
 
 	mementos := anObject
 ]
 
-{ #category : 'window management' }
+{ #category : #'window management' }
 PyramidCompositeMemento >> restore [
 
 	self mementos do: [ :each | each restore ]
diff --git a/src/Pyramid/PyramidDashArrayInputPresenter.class.st b/src/Pyramid/PyramidDashArrayInputPresenter.class.st
index 45db5c30..4f483d5f 100644
--- a/src/Pyramid/PyramidDashArrayInputPresenter.class.st
+++ b/src/Pyramid/PyramidDashArrayInputPresenter.class.st
@@ -1,22 +1,20 @@
 Class {
-	#name : 'PyramidDashArrayInputPresenter',
-	#superclass : 'PyramidInputPresenter',
+	#name : #PyramidDashArrayInputPresenter,
+	#superclass : #PyramidInputPresenter,
 	#instVars : [
 		'submitBlock',
 		'inputArray'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDashArrayInputPresenter >> applyStrings [
 
 	self inputArray help: self strings help
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDashArrayInputPresenter >> defaultLayout [
 
 	^ SpBoxLayout newHorizontal
@@ -24,7 +22,7 @@ PyramidDashArrayInputPresenter >> defaultLayout [
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDashArrayInputPresenter >> getArrayFrom: aString [
 
 	| numbersAsString |
@@ -34,7 +32,7 @@ PyramidDashArrayInputPresenter >> getArrayFrom: aString [
 		  NumberParser parse: each onError: [ ^ PyramidUnknowState new ] ]
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDashArrayInputPresenter >> initializePresenters [
 
 	inputArray := SpTextInputFieldPresenter new
@@ -43,26 +41,26 @@ PyramidDashArrayInputPresenter >> initializePresenters [
 		              yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDashArrayInputPresenter >> inputArray [
 
 	^ inputArray
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDashArrayInputPresenter >> submitBlock [
 
 	submitBlock ifNil: [ submitBlock := [ :n |  ] ].
 	^ submitBlock
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDashArrayInputPresenter >> value [
 
 	^ self getArrayFrom: self inputArray text
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDashArrayInputPresenter >> value: aCollection [
 
 	aCollection isCollection ifFalse: [
@@ -73,7 +71,7 @@ PyramidDashArrayInputPresenter >> value: aCollection [
 				  number asFloat reduce printString ]))
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDashArrayInputPresenter >> whenValueChangedDo: aBlock [
 
 	submitBlock := aBlock
diff --git a/src/Pyramid/PyramidDynamicLayoutAllPanels.class.st b/src/Pyramid/PyramidDynamicLayoutAllPanels.class.st
index ce814a8e..71042492 100644
--- a/src/Pyramid/PyramidDynamicLayoutAllPanels.class.st
+++ b/src/Pyramid/PyramidDynamicLayoutAllPanels.class.st
@@ -1,12 +1,10 @@
 Class {
-	#name : 'PyramidDynamicLayoutAllPanels',
-	#superclass : 'PyramidDynamicLayoutStrategy',
-	#category : 'Pyramid-plugin-dynamic-layout',
-	#package : 'Pyramid',
-	#tag : 'plugin-dynamic-layout'
+	#name : #PyramidDynamicLayoutAllPanels,
+	#superclass : #PyramidDynamicLayoutStrategy,
+	#category : #'Pyramid-plugin-dynamic-layout'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDynamicLayoutAllPanels >> centerLayoutFor: aWindow [
 
 	^ SpPanedLayout newLeftToRight
diff --git a/src/Pyramid/PyramidDynamicLayoutOnlyCenter.class.st b/src/Pyramid/PyramidDynamicLayoutOnlyCenter.class.st
index ac44f91b..860e12b3 100644
--- a/src/Pyramid/PyramidDynamicLayoutOnlyCenter.class.st
+++ b/src/Pyramid/PyramidDynamicLayoutOnlyCenter.class.st
@@ -1,12 +1,10 @@
 Class {
-	#name : 'PyramidDynamicLayoutOnlyCenter',
-	#superclass : 'PyramidDynamicLayoutStrategy',
-	#category : 'Pyramid-plugin-dynamic-layout',
-	#package : 'Pyramid',
-	#tag : 'plugin-dynamic-layout'
+	#name : #PyramidDynamicLayoutOnlyCenter,
+	#superclass : #PyramidDynamicLayoutStrategy,
+	#category : #'Pyramid-plugin-dynamic-layout'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDynamicLayoutOnlyCenter >> centerLayoutFor: aWindow [
 
 	^ (self spaceAndToolBarFor: aWindow)
diff --git a/src/Pyramid/PyramidDynamicLayoutOnlyLeft.class.st b/src/Pyramid/PyramidDynamicLayoutOnlyLeft.class.st
index ff683463..5556f2b0 100644
--- a/src/Pyramid/PyramidDynamicLayoutOnlyLeft.class.st
+++ b/src/Pyramid/PyramidDynamicLayoutOnlyLeft.class.st
@@ -1,12 +1,10 @@
 Class {
-	#name : 'PyramidDynamicLayoutOnlyLeft',
-	#superclass : 'PyramidDynamicLayoutStrategy',
-	#category : 'Pyramid-plugin-dynamic-layout',
-	#package : 'Pyramid',
-	#tag : 'plugin-dynamic-layout'
+	#name : #PyramidDynamicLayoutOnlyLeft,
+	#superclass : #PyramidDynamicLayoutStrategy,
+	#category : #'Pyramid-plugin-dynamic-layout'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDynamicLayoutOnlyLeft >> centerLayoutFor: aWindow [
 
 	^ SpPanedLayout newLeftToRight
diff --git a/src/Pyramid/PyramidDynamicLayoutOnlyRight.class.st b/src/Pyramid/PyramidDynamicLayoutOnlyRight.class.st
index 352e40ac..802da25a 100644
--- a/src/Pyramid/PyramidDynamicLayoutOnlyRight.class.st
+++ b/src/Pyramid/PyramidDynamicLayoutOnlyRight.class.st
@@ -1,12 +1,10 @@
 Class {
-	#name : 'PyramidDynamicLayoutOnlyRight',
-	#superclass : 'PyramidDynamicLayoutStrategy',
-	#category : 'Pyramid-plugin-dynamic-layout',
-	#package : 'Pyramid',
-	#tag : 'plugin-dynamic-layout'
+	#name : #PyramidDynamicLayoutOnlyRight,
+	#superclass : #PyramidDynamicLayoutStrategy,
+	#category : #'Pyramid-plugin-dynamic-layout'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDynamicLayoutOnlyRight >> centerLayoutFor: aWindow [
 
 	^ SpPanedLayout newLeftToRight
diff --git a/src/Pyramid/PyramidDynamicLayoutStrategy.class.st b/src/Pyramid/PyramidDynamicLayoutStrategy.class.st
index db39f2d8..8503c2a0 100644
--- a/src/Pyramid/PyramidDynamicLayoutStrategy.class.st
+++ b/src/Pyramid/PyramidDynamicLayoutStrategy.class.st
@@ -1,36 +1,34 @@
 Class {
-	#name : 'PyramidDynamicLayoutStrategy',
-	#superclass : 'Object',
-	#category : 'Pyramid-plugin-dynamic-layout',
-	#package : 'Pyramid',
-	#tag : 'plugin-dynamic-layout'
+	#name : #PyramidDynamicLayoutStrategy,
+	#superclass : #Object,
+	#category : #'Pyramid-plugin-dynamic-layout'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDynamicLayoutStrategy class >> proportion [
 
 	^ 1 / 4
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDynamicLayoutStrategy class >> proportionRight [
 
 	^ 1 - self proportion
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDynamicLayoutStrategy class >> proportionRightAndLeft [
 
 	^ (1 - (2 * self proportion)) / (1 - self proportion)
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDynamicLayoutStrategy >> centerLayoutFor: aWindow [
 
 	^ self shouldBeImplemented 
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidDynamicLayoutStrategy >> layoutFor: aWindow [
 
 	| mainLayout |
@@ -42,7 +40,7 @@ PyramidDynamicLayoutStrategy >> layoutFor: aWindow [
 	^ mainLayout
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidDynamicLayoutStrategy >> spaceAndToolBarFor: aWindow [
 	"^ (aWindow services at: #space) presenter"
 
@@ -52,7 +50,7 @@ PyramidDynamicLayoutStrategy >> spaceAndToolBarFor: aWindow [
 		  yourself
 ]
 
-{ #category : 'specs' }
+{ #category : #specs }
 PyramidDynamicLayoutStrategy >> topLayoutFor: aWindow [
 
 	| layout |
diff --git a/src/Pyramid/PyramidDynamicWindow.class.st b/src/Pyramid/PyramidDynamicWindow.class.st
index 597b821b..995c2ae8 100644
--- a/src/Pyramid/PyramidDynamicWindow.class.st
+++ b/src/Pyramid/PyramidDynamicWindow.class.st
@@ -1,21 +1,19 @@
 Class {
-	#name : 'PyramidDynamicWindow',
-	#superclass : 'PyramidWindow',
+	#name : #PyramidDynamicWindow,
+	#superclass : #PyramidWindow,
 	#instVars : [
 		'layoutStrategy'
 	],
-	#category : 'Pyramid-plugin-dynamic-layout',
-	#package : 'Pyramid',
-	#tag : 'plugin-dynamic-layout'
+	#category : #'Pyramid-plugin-dynamic-layout'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidDynamicWindow >> layout [
 
 	^ self layoutStrategy layoutFor: self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidDynamicWindow >> layoutStrategy [
 
 	layoutStrategy ifNil: [
@@ -23,7 +21,7 @@ PyramidDynamicWindow >> layoutStrategy [
 	^ layoutStrategy
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidDynamicWindow >> layoutStrategy: aStrategy [
 
 	layoutStrategy := aStrategy.
diff --git a/src/Pyramid/PyramidEditor.class.st b/src/Pyramid/PyramidEditor.class.st
index 9707b9a1..b4177428 100644
--- a/src/Pyramid/PyramidEditor.class.st
+++ b/src/Pyramid/PyramidEditor.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'PyramidEditor',
-	#superclass : 'Object',
+	#name : #PyramidEditor,
+	#superclass : #Object,
 	#traits : 'TPyramidFindPlugin',
 	#classTraits : 'TPyramidFindPlugin classTrait',
 	#instVars : [
@@ -10,31 +10,29 @@ Class {
 		'propertiesManager',
 		'announcer'
 	],
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#category : #'Pyramid-core'
 }
 
-{ #category : 'private' }
+{ #category : #private }
 PyramidEditor class >> buildEditor [
 
 	^ PyramidPluginManager uniqueInstance buildEditor
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 PyramidEditor class >> open [
 	<script>
 
 	self buildEditor open
 ]
 
-{ #category : 'open/close' }
+{ #category : #'open/close' }
 PyramidEditor >> announcer [
 
 	^ announcer
 ]
 
-{ #category : 'open/close' }
+{ #category : #'open/close' }
 PyramidEditor >> close [
 
 	self window ifNil: [ ^ self ].
@@ -42,13 +40,13 @@ PyramidEditor >> close [
 	self window close
 ]
 
-{ #category : 'plugins' }
+{ #category : #plugins }
 PyramidEditor >> getPlugin: aPluginClass [
 
 	^ self plugins detect:[ :p | p class = aPluginClass ] ifNone:[ ]
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidEditor >> initialize [
 
 	announcer := Announcer new.
@@ -61,7 +59,7 @@ PyramidEditor >> initialize [
 	
 ]
 
-{ #category : 'open/close' }
+{ #category : #'open/close' }
 PyramidEditor >> open [
 
 	self window ifNil: [ ^ self ].
@@ -69,43 +67,43 @@ PyramidEditor >> open [
 	self window open
 ]
 
-{ #category : 'plugins' }
+{ #category : #plugins }
 PyramidEditor >> plugins [
 
 	^ plugins
 ]
 
-{ #category : 'plugins' }
+{ #category : #plugins }
 PyramidEditor >> plugins: aCollection [
 
 	plugins := aCollection
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidEditor >> projectModel [
 
 	^ projectModel
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidEditor >> propertiesManager [
 
 	^ propertiesManager
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidEditor >> view [
 
 	^ self window presenter
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidEditor >> window [
 
 	^ window
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidEditor >> window: anObject [
 
 	window := anObject.
diff --git a/src/Pyramid/PyramidEditorBuilder.class.st b/src/Pyramid/PyramidEditorBuilder.class.st
index e489d894..d2e9ba64 100644
--- a/src/Pyramid/PyramidEditorBuilder.class.st
+++ b/src/Pyramid/PyramidEditorBuilder.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'PyramidEditorBuilder',
-	#superclass : 'Object',
+	#name : #PyramidEditorBuilder,
+	#superclass : #Object,
 	#traits : 'TPyramidFindPlugin',
 	#classTraits : 'TPyramidFindPlugin classTrait',
 	#instVars : [
@@ -8,12 +8,10 @@ Class {
 		'editor',
 		'window'
 	],
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#category : #'Pyramid-core'
 }
 
-{ #category : 'building' }
+{ #category : #building }
 PyramidEditorBuilder >> build [
 
 	self plugins:
@@ -29,26 +27,26 @@ PyramidEditorBuilder >> build [
 	^ editor
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidEditorBuilder >> editor [
 editor ifNil: [ editor := PyramidEditor new ].
  ^ editor
 
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidEditorBuilder >> plugins [
 
 	^ plugins
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidEditorBuilder >> plugins: anObject [
 
 	plugins := anObject
 ]
 
-{ #category : 'building' }
+{ #category : #building }
 PyramidEditorBuilder >> window [
 
 window ifNil: [ window := PyramidSimpleWindow new ].
@@ -57,7 +55,7 @@ window ifNil: [ window := PyramidSimpleWindow new ].
 	
 ]
 
-{ #category : 'building' }
+{ #category : #building }
 PyramidEditorBuilder >> window: aPyramidWindow [
 
 	window ifNotNil: [
diff --git a/src/Pyramid/PyramidElementsChangedEvent.class.st b/src/Pyramid/PyramidElementsChangedEvent.class.st
index eb42d090..32699db6 100644
--- a/src/Pyramid/PyramidElementsChangedEvent.class.st
+++ b/src/Pyramid/PyramidElementsChangedEvent.class.st
@@ -1,7 +1,5 @@
 Class {
-	#name : 'PyramidElementsChangedEvent',
-	#superclass : 'PyramidProjectModelEvent',
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#name : #PyramidElementsChangedEvent,
+	#superclass : #PyramidProjectModelEvent,
+	#category : #'Pyramid-core'
 }
diff --git a/src/Pyramid/PyramidEmptyValue.class.st b/src/Pyramid/PyramidEmptyValue.class.st
index 956e9387..5d6002d3 100644
--- a/src/Pyramid/PyramidEmptyValue.class.st
+++ b/src/Pyramid/PyramidEmptyValue.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidEmptyValue',
-	#superclass : 'PyramidUnknowState',
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#name : #PyramidEmptyValue,
+	#superclass : #PyramidUnknowState,
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'converting' }
+{ #category : #converting }
 PyramidEmptyValue >> asString [
 
 	^ '@ Empty state'
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidEmptyValue >> selectOnBackgroundInput: aPyramidBackgroundInputPresenter [
 
 	aPyramidBackgroundInputPresenter selectEmptyValue
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidEmptyValue >> setVisibilityOn: aPyramidVisibilityInputPresenter [
 
 	aPyramidVisibilityInputPresenter setVisibilityEmptyValue
diff --git a/src/Pyramid/PyramidError.class.st b/src/Pyramid/PyramidError.class.st
index 78f7a642..e75716ca 100644
--- a/src/Pyramid/PyramidError.class.st
+++ b/src/Pyramid/PyramidError.class.st
@@ -1,7 +1,5 @@
 Class {
-	#name : 'PyramidError',
-	#superclass : 'Error',
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#name : #PyramidError,
+	#superclass : #Error,
+	#category : #'Pyramid-core'
 }
diff --git a/src/Pyramid/PyramidEvent.class.st b/src/Pyramid/PyramidEvent.class.st
index 7e3ac42f..c7ebff97 100644
--- a/src/Pyramid/PyramidEvent.class.st
+++ b/src/Pyramid/PyramidEvent.class.st
@@ -1,7 +1,5 @@
 Class {
-	#name : 'PyramidEvent',
-	#superclass : 'Announcement',
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#name : #PyramidEvent,
+	#superclass : #Announcement,
+	#category : #'Pyramid-core'
 }
diff --git a/src/Pyramid/PyramidExternalRessourceProxy.class.st b/src/Pyramid/PyramidExternalRessourceProxy.class.st
index 0878385c..880cc1a3 100644
--- a/src/Pyramid/PyramidExternalRessourceProxy.class.st
+++ b/src/Pyramid/PyramidExternalRessourceProxy.class.st
@@ -1,16 +1,14 @@
 Class {
-	#name : 'PyramidExternalRessourceProxy',
-	#superclass : 'Object',
+	#name : #PyramidExternalRessourceProxy,
+	#superclass : #Object,
 	#instVars : [
 		'object',
 		'source'
 	],
-	#category : 'Pyramid-external-ressources',
-	#package : 'Pyramid',
-	#tag : 'external-ressources'
+	#category : #'Pyramid-external-ressources'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidExternalRessourceProxy class >> fromSource: aSource [
 
 	^ self new
@@ -19,7 +17,7 @@ PyramidExternalRessourceProxy class >> fromSource: aSource [
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidExternalRessourceProxy >> doesNotUnderstand: aMessage [
 
 	^ (self pyramidExternalRessourceObject respondsTo: aMessage selector)
@@ -30,7 +28,7 @@ PyramidExternalRessourceProxy >> doesNotUnderstand: aMessage [
 		  ifFalse: [ super doesNotUnderstand: aMessage ]
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 PyramidExternalRessourceProxy >> fromSton: stonReader [
 
 	stonReader parseMapDo: [ :key :value |
@@ -39,32 +37,39 @@ PyramidExternalRessourceProxy >> fromSton: stonReader [
 			 ] ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidExternalRessourceProxy >> pyramidExternalRessourceObject [
 
 	object ifNil: [ object := self pyramidExternalRessourceSource getRessource ].
 	^ object
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidExternalRessourceProxy >> pyramidExternalRessourceObject: anObject [
 
 	object := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidExternalRessourceProxy >> pyramidExternalRessourceSource [
 
 	^ source
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidExternalRessourceProxy >> pyramidExternalRessourceSource: anObject [
 
 	source := anObject
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
+PyramidExternalRessourceProxy >> stashAccessors [
+
+	<stashAccessors>
+	^ { #pyramidExternalRessourceSource }
+]
+
+{ #category : #'as yet unclassified' }
 PyramidExternalRessourceProxy >> stonOn: stonWriter [
 
 	stonWriter
diff --git a/src/Pyramid/PyramidExternalRessourceSource.class.st b/src/Pyramid/PyramidExternalRessourceSource.class.st
index e9f7dd67..562455dc 100644
--- a/src/Pyramid/PyramidExternalRessourceSource.class.st
+++ b/src/Pyramid/PyramidExternalRessourceSource.class.st
@@ -1,17 +1,15 @@
 Class {
-	#name : 'PyramidExternalRessourceSource',
-	#superclass : 'Object',
+	#name : #PyramidExternalRessourceSource,
+	#superclass : #Object,
 	#instVars : [
 		'target',
 		'selector',
 		'arguments'
 	],
-	#category : 'Pyramid-external-ressources',
-	#package : 'Pyramid',
-	#tag : 'external-ressources'
+	#category : #'Pyramid-external-ressources'
 }
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidExternalRessourceSource class >> formFromFileNamed: aFileReference [
 
 	^ self new
@@ -21,7 +19,7 @@ PyramidExternalRessourceSource class >> formFromFileNamed: aFileReference [
 		  yourself
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidExternalRessourceSource class >> target: aClass selector: aSelector [
 
 	^ self new
@@ -30,7 +28,7 @@ PyramidExternalRessourceSource class >> target: aClass selector: aSelector [
 		  yourself
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidExternalRessourceSource class >> target: aClass selector: aSelector arguments: anArray [
 
 	^ self new
@@ -40,19 +38,19 @@ PyramidExternalRessourceSource class >> target: aClass selector: aSelector argum
 		  yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidExternalRessourceSource >> arguments [
 
 	^ arguments
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidExternalRessourceSource >> arguments: anObject [
 
 	arguments := anObject
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 PyramidExternalRessourceSource >> fromSton: stonReader [
 
 	stonReader parseMapDo: [ :key :value |
@@ -62,31 +60,38 @@ PyramidExternalRessourceSource >> fromSton: stonReader [
 		key = #arguments ifTrue: [ self arguments: value ] ]
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidExternalRessourceSource >> getRessource [
 
 	^ self target perform: self selector withArguments: self arguments
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidExternalRessourceSource >> initialize [
 
 	arguments := {  }
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidExternalRessourceSource >> selector [
 
 	^ selector
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidExternalRessourceSource >> selector: anObject [
 
 	selector := anObject
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
+PyramidExternalRessourceSource >> stashAccessors [
+
+	<stashAccessors>
+	^ { #target . #selector . #arguments }
+]
+
+{ #category : #'as yet unclassified' }
 PyramidExternalRessourceSource >> stonOn: stonWriter [
 
 	stonWriter writeObject: self streamMap: [ :map |
@@ -95,13 +100,13 @@ PyramidExternalRessourceSource >> stonOn: stonWriter [
 		map at: #arguments put: self arguments ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidExternalRessourceSource >> target [
 
 	^ target
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidExternalRessourceSource >> target: anObject [
 
 	target := anObject
diff --git a/src/Pyramid/PyramidFirstLevelElementsChangedEvent.class.st b/src/Pyramid/PyramidFirstLevelElementsChangedEvent.class.st
index c08bc829..ff3b191c 100644
--- a/src/Pyramid/PyramidFirstLevelElementsChangedEvent.class.st
+++ b/src/Pyramid/PyramidFirstLevelElementsChangedEvent.class.st
@@ -1,7 +1,5 @@
 Class {
-	#name : 'PyramidFirstLevelElementsChangedEvent',
-	#superclass : 'PyramidProjectModelEvent',
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#name : #PyramidFirstLevelElementsChangedEvent,
+	#superclass : #PyramidProjectModelEvent,
+	#category : #'Pyramid-core'
 }
diff --git a/src/Pyramid/PyramidHideEmptyPropertyStrategy.class.st b/src/Pyramid/PyramidHideEmptyPropertyStrategy.class.st
index 12d0361c..88b4473b 100644
--- a/src/Pyramid/PyramidHideEmptyPropertyStrategy.class.st
+++ b/src/Pyramid/PyramidHideEmptyPropertyStrategy.class.st
@@ -9,14 +9,12 @@ In other terms, any property who is not linked to any object in the collection w
 
 "
 Class {
-	#name : 'PyramidHideEmptyPropertyStrategy',
-	#superclass : 'PyramidPresenterPropertiesStrategy',
-	#category : 'Pyramid-property',
-	#package : 'Pyramid',
-	#tag : 'property'
+	#name : #PyramidHideEmptyPropertyStrategy,
+	#superclass : #PyramidPresenterPropertiesStrategy,
+	#category : #'Pyramid-property'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidHideEmptyPropertyStrategy >> buildPresenterFromClustersAndProperties: aCollection [
 
 	| notEmptyClustersAndProperties presenters |
@@ -28,7 +26,7 @@ PyramidHideEmptyPropertyStrategy >> buildPresenterFromClustersAndProperties: aCo
 	^ self presenterWith: presenters
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidHideEmptyPropertyStrategy >> buildPresenterFromCollection: aCollection andManager: aManager [
 
 	| clustersAndProps |
@@ -38,7 +36,7 @@ PyramidHideEmptyPropertyStrategy >> buildPresenterFromCollection: aCollection an
 	^ self buildPresenterFromClustersAndProperties: clustersAndProps
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidHideEmptyPropertyStrategy >> emptyPresenter [
 
 	| presenter layout |
@@ -52,7 +50,7 @@ PyramidHideEmptyPropertyStrategy >> emptyPresenter [
 	^ presenter
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidHideEmptyPropertyStrategy >> presenterWith: aCollection [
 
 	| presenter layout |
diff --git a/src/Pyramid/PyramidHistory.class.st b/src/Pyramid/PyramidHistory.class.st
index 3fc5885d..05a8d77e 100644
--- a/src/Pyramid/PyramidHistory.class.st
+++ b/src/Pyramid/PyramidHistory.class.st
@@ -1,53 +1,51 @@
 Class {
-	#name : 'PyramidHistory',
-	#superclass : 'Object',
+	#name : #PyramidHistory,
+	#superclass : #Object,
 	#instVars : [
 		'mementosStack',
 		'position'
 	],
-	#category : 'Pyramid-history',
-	#package : 'Pyramid',
-	#tag : 'history'
+	#category : #'Pyramid-history'
 }
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidHistory >> canRedo [
 
 	^ self mementosStack size - self position > 0
 ]
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidHistory >> canUndo [
 
  ^ self position >= 1
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidHistory >> initialize [
 
 	mementosStack := OrderedCollection new.
 	position := 0
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistory >> mementosStack [
 
 	^ mementosStack
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistory >> mementosStack: anObject [
 
 	mementosStack := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistory >> position [
 
 	^ position
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidHistory >> previous: undoMemento current: redoMemento [
 
 	(self position ~= 0 and: [ self position ~= self mementosStack size ]) ifTrue: [ self mementosStack: (self mementosStack first: self position). ].
@@ -56,7 +54,7 @@ PyramidHistory >> previous: undoMemento current: redoMemento [
 	self mementosStack add: undoMemento -> redoMemento
 ]
 
-{ #category : 'menu messages' }
+{ #category : #'menu messages' }
 PyramidHistory >> redo [
 
 	self canRedo ifTrue: [
@@ -64,7 +62,7 @@ PyramidHistory >> redo [
 		position := position + 1 ]
 ]
 
-{ #category : 'menu messages' }
+{ #category : #'menu messages' }
 PyramidHistory >> undo [
 
 	self canUndo ifTrue: [
diff --git a/src/Pyramid/PyramidHistoryCommandExecutor.class.st b/src/Pyramid/PyramidHistoryCommandExecutor.class.st
index 78a8993c..db1f02d1 100644
--- a/src/Pyramid/PyramidHistoryCommandExecutor.class.st
+++ b/src/Pyramid/PyramidHistoryCommandExecutor.class.st
@@ -3,29 +3,27 @@ I’m a decorator use to save the history of Pyramid.
 
 "
 Class {
-	#name : 'PyramidHistoryCommandExecutor',
-	#superclass : 'PyramidCommandExecutorDecorator',
+	#name : #PyramidHistoryCommandExecutor,
+	#superclass : #PyramidCommandExecutorDecorator,
 	#instVars : [
 		'history'
 	],
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistoryCommandExecutor >> history [
 
 	^ history
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistoryCommandExecutor >> history: aPyramidHistory [
 
 	history := aPyramidHistory
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidHistoryCommandExecutor >> use: aCommand on: aCollection with: arguments [
 
 	| undoMemento redoMemento |
diff --git a/src/Pyramid/PyramidHistoryPlugin.class.st b/src/Pyramid/PyramidHistoryPlugin.class.st
index 4a27e800..1d34c2b8 100644
--- a/src/Pyramid/PyramidHistoryPlugin.class.st
+++ b/src/Pyramid/PyramidHistoryPlugin.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'PyramidHistoryPlugin',
-	#superclass : 'Object',
+	#name : #PyramidHistoryPlugin,
+	#superclass : #Object,
 	#traits : 'TPyramidPlugin',
 	#classTraits : 'TPyramidPlugin classTrait',
 	#instVars : [
@@ -9,12 +9,10 @@ Class {
 		'history',
 		'projectModel'
 	],
-	#category : 'Pyramid-history',
-	#package : 'Pyramid',
-	#tag : 'history'
+	#category : #'Pyramid-history'
 }
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidHistoryPlugin >> addPanelsOn: aPyramidSimpleWindow [
 
 	aPyramidSimpleWindow
@@ -27,7 +25,7 @@ PyramidHistoryPlugin >> addPanelsOn: aPyramidSimpleWindow [
 		builder makeButtonWithIcon: self redoButton order: 20 ]
 ]
 
-{ #category : 'connecting' }
+{ #category : #connecting }
 PyramidHistoryPlugin >> connectOn: aPyramidEditor [
 
 	self history: aPyramidEditor propertiesManager history.
@@ -35,19 +33,19 @@ PyramidHistoryPlugin >> connectOn: aPyramidEditor [
 	self pyramidElementsChanged: nil.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistoryPlugin >> history [
 
 	^ history
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistoryPlugin >> history: anObject [
 
 	history := anObject
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidHistoryPlugin >> initialize [
 
 	undoButton := SpButtonPresenter new
@@ -68,13 +66,13 @@ PyramidHistoryPlugin >> initialize [
 		              yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistoryPlugin >> projectModel [
 
 	^ projectModel
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistoryPlugin >> projectModel: anObject [
 
 	projectModel := anObject.
@@ -84,20 +82,20 @@ PyramidHistoryPlugin >> projectModel: anObject [
 		for: self
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidHistoryPlugin >> pyramidElementsChanged: anEvent [
 
 	undoButton enabled: self history canUndo.
 	redoButton enabled: self history canRedo
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistoryPlugin >> redoButton [
 
 	^ redoButton
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidHistoryPlugin >> undoButton [
 
 	^ undoButton
diff --git a/src/Pyramid/PyramidInputPresenter.class.st b/src/Pyramid/PyramidInputPresenter.class.st
index da96f425..a69babbd 100644
--- a/src/Pyramid/PyramidInputPresenter.class.st
+++ b/src/Pyramid/PyramidInputPresenter.class.st
@@ -10,69 +10,67 @@ I am a `SpPresenter` used to view and changed the property of a collection of ob
 
 "
 Class {
-	#name : 'PyramidInputPresenter',
-	#superclass : 'SpPresenter',
+	#name : #PyramidInputPresenter,
+	#superclass : #SpPresenter,
 	#instVars : [
 		'strings'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidInputPresenter class >> isAbstract [
 
 	^ self == PyramidInputPresenter
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidInputPresenter class >> stringsClass [
 
 	^ PyramidInputStrings
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidInputPresenter >> applyStrings [
 
 	
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidInputPresenter >> emptyValue [
 
 	self value: PyramidEmptyValue new
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidInputPresenter >> mixedValues [
 
 	self value: PyramidMixedValues new
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidInputPresenter >> strings [
 
 	^ strings
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidInputPresenter >> strings: anObject [
 
 	strings := anObject.
 	self applyStrings
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidInputPresenter >> value [
 
 	
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidInputPresenter >> value: anObject [
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidInputPresenter >> whenValueChangedDo: aBlock [
 ]
diff --git a/src/Pyramid/PyramidInputStrings.class.st b/src/Pyramid/PyramidInputStrings.class.st
index dd344d19..1e71cb65 100644
--- a/src/Pyramid/PyramidInputStrings.class.st
+++ b/src/Pyramid/PyramidInputStrings.class.st
@@ -1,27 +1,25 @@
 Class {
-	#name : 'PyramidInputStrings',
-	#superclass : 'Object',
+	#name : #PyramidInputStrings,
+	#superclass : #Object,
 	#instVars : [
 		'help'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidInputStrings >> help [
 
 	^ help
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidInputStrings >> help: anObject [
 
 	help := anObject
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidInputStrings >> initialize [
 
 	help := ''
diff --git a/src/Pyramid/PyramidMagicButtonModel.class.st b/src/Pyramid/PyramidMagicButtonModel.class.st
index 0f80e874..70cf3671 100644
--- a/src/Pyramid/PyramidMagicButtonModel.class.st
+++ b/src/Pyramid/PyramidMagicButtonModel.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'PyramidMagicButtonModel',
-	#superclass : 'Object',
+	#name : #PyramidMagicButtonModel,
+	#superclass : #Object,
 	#instVars : [
 		'icon',
 		'helpSelected',
@@ -9,78 +9,76 @@ Class {
 		'label',
 		'inputValidation'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonModel >> helpNotSelected [
 
 	^ helpNotSelected
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonModel >> helpNotSelected: anObject [
 
 	helpNotSelected := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonModel >> helpSelected [
 
 	^ helpSelected
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonModel >> helpSelected: anObject [
 
 	helpSelected := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonModel >> icon [
 
 	^ icon
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonModel >> icon: anObject [
 
 	icon := anObject
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonModel >> inputValidation [
 
 	^ inputValidation
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonModel >> inputValidation: aFullBlockClosure [ 
 	
 	inputValidation := aFullBlockClosure
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonModel >> inputValue [
 
 	^ inputValue
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonModel >> inputValue: anObject [
 
 	inputValue := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonModel >> label [
 
 	^ label
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonModel >> label: anObject [
 
 	label := anObject
diff --git a/src/Pyramid/PyramidMagicButtonsInputPresenter.class.st b/src/Pyramid/PyramidMagicButtonsInputPresenter.class.st
index fd803668..9b25f781 100644
--- a/src/Pyramid/PyramidMagicButtonsInputPresenter.class.st
+++ b/src/Pyramid/PyramidMagicButtonsInputPresenter.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'PyramidMagicButtonsInputPresenter',
-	#superclass : 'PyramidInputPresenter',
+	#name : #PyramidMagicButtonsInputPresenter,
+	#superclass : #PyramidInputPresenter,
 	#instVars : [
 		'valueArray',
 		'buttonsSelected',
@@ -13,18 +13,16 @@ Class {
 	#classInstVars : [
 		'whenValueChangedDo'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'deprecated' }
+{ #category : #deprecated }
 PyramidMagicButtonsInputPresenter class >> stringsClass [
 
 	^ PyramidMagicButtonsModel
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> applyStrings [
 
 	self strings buttonsModel do: [ :each |
@@ -33,25 +31,25 @@ PyramidMagicButtonsInputPresenter >> applyStrings [
 	self setUnknowValue
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonsInputPresenter >> buttonUnknow [
 
 	^ buttonUnknow
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonsInputPresenter >> buttonsNotSelected [
 
 	^ buttonsNotSelected
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonsInputPresenter >> buttonsSelected [
 
 	^ buttonsSelected
 ]
 
-{ #category : 'layout' }
+{ #category : #layout }
 PyramidMagicButtonsInputPresenter >> defaultLayout [
 
 	^ SpBoxLayout newHorizontal
@@ -59,21 +57,21 @@ PyramidMagicButtonsInputPresenter >> defaultLayout [
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> emptyValue [
 
 	self selectedIndex: 0.
 	 self setUnknowValue
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> indexOf: aValue [
 
 	(1 to: self validationArray size do: [ :i | ((self validationArray at: i) value: aValue) ifTrue: [ ^ i ] ]).
 	^ 0
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonsInputPresenter >> initializePresenters [
 
 	whenValueChangedDo := [ :val |  ].
@@ -87,7 +85,7 @@ PyramidMagicButtonsInputPresenter >> initializePresenters [
 		                yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> layoutFor: aButtonsCollection withSelectedIndex: index [
 
 	| buttonsLayout |
@@ -107,7 +105,7 @@ PyramidMagicButtonsInputPresenter >> layoutFor: aButtonsCollection withSelectedI
 		^ buttonsLayout
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> makeAssociatedButtonFor: aButtonModel [
 
 	| buttonSelected buttonNotSelected |
@@ -134,26 +132,26 @@ PyramidMagicButtonsInputPresenter >> makeAssociatedButtonFor: aButtonModel [
 	self buttonsNotSelected add: buttonNotSelected
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> mixedValues [
 
 	self selectedIndex: 0.
 	self setUnknowValue
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> selectedIndex [
 
 	^ selectedIndex
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> selectedIndex: anObject [
 
 	selectedIndex := anObject
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> setUnknowValue [
 
 	| buttonsList |
@@ -163,20 +161,20 @@ PyramidMagicButtonsInputPresenter >> setUnknowValue [
 	self layout: (self layoutFor: buttonsList withSelectedIndex: 1)
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonsInputPresenter >> validationArray [
 
 	^ validationArray
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> value [
 
 	self selectedIndex = 0 ifTrue: [ ^ PyramidUnknowState new ].
 	^ (self valueArray at: self selectedIndex)
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsInputPresenter >> value: aValue [
 
 	| buttonsList |
@@ -192,19 +190,19 @@ PyramidMagicButtonsInputPresenter >> value: aValue [
 		(self layoutFor: buttonsList withSelectedIndex: self selectedIndex)
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonsInputPresenter >> valueArray [
 
 	^ valueArray
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonsInputPresenter >> whenValueChangedDo [
 
 	^ whenValueChangedDo
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMagicButtonsInputPresenter >> whenValueChangedDo: aBlockClosure [
 
 	whenValueChangedDo := aBlockClosure
diff --git a/src/Pyramid/PyramidMagicButtonsModel.class.st b/src/Pyramid/PyramidMagicButtonsModel.class.st
index 862449a2..5dc13c58 100644
--- a/src/Pyramid/PyramidMagicButtonsModel.class.st
+++ b/src/Pyramid/PyramidMagicButtonsModel.class.st
@@ -1,26 +1,24 @@
 Class {
-	#name : 'PyramidMagicButtonsModel',
-	#superclass : 'Object',
+	#name : #PyramidMagicButtonsModel,
+	#superclass : #Object,
 	#instVars : [
 		'buttonsModel'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidMagicButtonsModel >> addButtonModel: aPyramidMagicButonModel [
 
 	self buttonsModel add: aPyramidMagicButonModel
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMagicButtonsModel >> buttonsModel [
 	^ buttonsModel
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidMagicButtonsModel >> initialize [
 
 	buttonsModel := OrderedCollection new.
diff --git a/src/Pyramid/PyramidMainCommandExecutor.class.st b/src/Pyramid/PyramidMainCommandExecutor.class.st
index 00d8a2cb..2f95fb28 100644
--- a/src/Pyramid/PyramidMainCommandExecutor.class.st
+++ b/src/Pyramid/PyramidMainCommandExecutor.class.st
@@ -3,14 +3,12 @@ I execute the command on the given targets with the given arguments.
 
 "
 Class {
-	#name : 'PyramidMainCommandExecutor',
-	#superclass : 'PyramidCommandExecutor',
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#name : #PyramidMainCommandExecutor,
+	#superclass : #PyramidCommandExecutor,
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMainCommandExecutor >> use: aCommand on: aCollection with: arguments [
 
 	aCommand useOn: aCollection with: arguments.
diff --git a/src/Pyramid/PyramidMementoInverser.class.st b/src/Pyramid/PyramidMementoInverser.class.st
index c82afff4..11e5ba91 100644
--- a/src/Pyramid/PyramidMementoInverser.class.st
+++ b/src/Pyramid/PyramidMementoInverser.class.st
@@ -1,12 +1,10 @@
 Class {
-	#name : 'PyramidMementoInverser',
-	#superclass : 'PyramidMementoVisitor',
-	#category : 'Pyramid-history',
-	#package : 'Pyramid',
-	#tag : 'history'
+	#name : #PyramidMementoInverser,
+	#superclass : #PyramidMementoVisitor,
+	#category : #'Pyramid-history'
 }
 
-{ #category : 'visiting' }
+{ #category : #visiting }
 PyramidMementoInverser >> visitCommandMemento: aCommandMemento [
 
 	| memento |
@@ -18,7 +16,7 @@ PyramidMementoInverser >> visitCommandMemento: aCommandMemento [
 	^ memento
 ]
 
-{ #category : 'visiting' }
+{ #category : #visiting }
 PyramidMementoInverser >> visitCompositeMemento: aCompositeMemento [
 
 	| memento |
diff --git a/src/Pyramid/PyramidMementoVisitor.class.st b/src/Pyramid/PyramidMementoVisitor.class.st
index b638b7ad..c57aa50e 100644
--- a/src/Pyramid/PyramidMementoVisitor.class.st
+++ b/src/Pyramid/PyramidMementoVisitor.class.st
@@ -1,18 +1,16 @@
 Class {
-	#name : 'PyramidMementoVisitor',
-	#superclass : 'Object',
-	#category : 'Pyramid-history',
-	#package : 'Pyramid',
-	#tag : 'history'
+	#name : #PyramidMementoVisitor,
+	#superclass : #Object,
+	#category : #'Pyramid-history'
 }
 
-{ #category : 'visiting' }
+{ #category : #visiting }
 PyramidMementoVisitor >> visitCommandMemento: aCompositeMemento [
 
 	self shouldBeImplemented
 ]
 
-{ #category : 'visiting' }
+{ #category : #visiting }
 PyramidMementoVisitor >> visitCompositeMemento: aCompositeMemento [
 
 	self shouldBeImplemented
diff --git a/src/Pyramid/PyramidMenuPanelBuilder.class.st b/src/Pyramid/PyramidMenuPanelBuilder.class.st
index b9f01666..ac63c5f9 100644
--- a/src/Pyramid/PyramidMenuPanelBuilder.class.st
+++ b/src/Pyramid/PyramidMenuPanelBuilder.class.st
@@ -1,36 +1,34 @@
 Class {
-	#name : 'PyramidMenuPanelBuilder',
-	#superclass : 'PyramidPanelBuilder',
+	#name : #PyramidMenuPanelBuilder,
+	#superclass : #PyramidPanelBuilder,
 	#instVars : [
 		'item',
 		'emptyGroups',
 		'multiGroups',
 		'singleGroups'
 	],
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidMenuPanelBuilder >> addGroupEmptySelection: aGroupBlock order: aNumber [
 
 	self emptyGroups add: aNumber -> aGroupBlock
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidMenuPanelBuilder >> addGroupMultiSelection: aGroupBlock order: aNumber [
 
 	self multiGroups add: aNumber -> aGroupBlock
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidMenuPanelBuilder >> addGroupSingleSelection: aGroupBlock order: aNumber [
 
 	self singleGroups add: aNumber -> aGroupBlock
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMenuPanelBuilder >> buildMenuFrom: aGroupOfBlocks with: aTarget [
 
 	| menu group |
@@ -43,13 +41,13 @@ PyramidMenuPanelBuilder >> buildMenuFrom: aGroupOfBlocks with: aTarget [
 	^ menu
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMenuPanelBuilder >> emptyGroups [
 
 	^ emptyGroups
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidMenuPanelBuilder >> initialize [
 
 	emptyGroups := OrderedCollection new.
@@ -57,11 +55,11 @@ PyramidMenuPanelBuilder >> initialize [
 	singleGroups := OrderedCollection new
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMenuPanelBuilder >> item [
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMenuPanelBuilder >> menuFor: aCollection [
 
 	aCollection ifEmpty: [ ^ self buildMenuFrom: self emptyGroups with: nil ].
@@ -70,23 +68,23 @@ PyramidMenuPanelBuilder >> menuFor: aCollection [
 	^ self buildMenuFrom: self multiGroups with: aCollection
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMenuPanelBuilder >> multiGroups [
 
 	^ multiGroups
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMenuPanelBuilder >> presenterOf: aCollectionOfItems [
 
 	^ SpNullPresenter new
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidMenuPanelBuilder >> reset [
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMenuPanelBuilder >> singleGroups [
 
 	^ singleGroups
diff --git a/src/Pyramid/PyramidMixedValues.class.st b/src/Pyramid/PyramidMixedValues.class.st
index 1ba8a8df..d3922776 100644
--- a/src/Pyramid/PyramidMixedValues.class.st
+++ b/src/Pyramid/PyramidMixedValues.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidMixedValues',
-	#superclass : 'PyramidUnknowState',
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#name : #PyramidMixedValues,
+	#superclass : #PyramidUnknowState,
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'converting' }
+{ #category : #converting }
 PyramidMixedValues >> asString [
 
 	^ '@ Mixed state'
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidMixedValues >> selectOnBackgroundInput: aPyramidBackgroundInputPresenter [
 
 	aPyramidBackgroundInputPresenter selectMixedValues.
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidMixedValues >> setVisibilityOn: aPyramidVisibilityInputPresenter [
 
 	aPyramidVisibilityInputPresenter setVisibilityMixedValues
diff --git a/src/Pyramid/PyramidModalInputStrings.class.st b/src/Pyramid/PyramidModalInputStrings.class.st
index 4c220e05..dacde292 100644
--- a/src/Pyramid/PyramidModalInputStrings.class.st
+++ b/src/Pyramid/PyramidModalInputStrings.class.st
@@ -1,28 +1,26 @@
 Class {
-	#name : 'PyramidModalInputStrings',
-	#superclass : 'PyramidInputStrings',
+	#name : #PyramidModalInputStrings,
+	#superclass : #PyramidInputStrings,
 	#instVars : [
 		'windowTitle'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidModalInputStrings >> initialize [
 
 super initialize.
 windowTitle := ''
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidModalInputStrings >> windowTitle [
 
 	^ windowTitle
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidModalInputStrings >> windowTitle: anObject [
 
 	windowTitle := anObject
diff --git a/src/Pyramid/PyramidMultiplePluginsFoundError.class.st b/src/Pyramid/PyramidMultiplePluginsFoundError.class.st
index 8b19b397..e9d18706 100644
--- a/src/Pyramid/PyramidMultiplePluginsFoundError.class.st
+++ b/src/Pyramid/PyramidMultiplePluginsFoundError.class.st
@@ -1,21 +1,19 @@
 Class {
-	#name : 'PyramidMultiplePluginsFoundError',
-	#superclass : 'PyramidError',
+	#name : #PyramidMultiplePluginsFoundError,
+	#superclass : #PyramidError,
 	#instVars : [
 		'plugins'
 	],
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#category : #'Pyramid-core'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMultiplePluginsFoundError >> plugins [
 
 	^ plugins
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidMultiplePluginsFoundError >> plugins: anObject [
 
 	plugins := anObject
diff --git a/src/Pyramid/PyramidNoPluginFoundError.class.st b/src/Pyramid/PyramidNoPluginFoundError.class.st
index 5175874b..44d26e83 100644
--- a/src/Pyramid/PyramidNoPluginFoundError.class.st
+++ b/src/Pyramid/PyramidNoPluginFoundError.class.st
@@ -1,21 +1,19 @@
 Class {
-	#name : 'PyramidNoPluginFoundError',
-	#superclass : 'PyramidError',
+	#name : #PyramidNoPluginFoundError,
+	#superclass : #PyramidError,
 	#instVars : [
 		'query'
 	],
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#category : #'Pyramid-core'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidNoPluginFoundError >> query [
 
 	^ query
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidNoPluginFoundError >> query: anObject [
 
 	query := anObject
diff --git a/src/Pyramid/PyramidNumberArrayInputPresenter.class.st b/src/Pyramid/PyramidNumberArrayInputPresenter.class.st
index e39b9c1b..8d4a5b5c 100644
--- a/src/Pyramid/PyramidNumberArrayInputPresenter.class.st
+++ b/src/Pyramid/PyramidNumberArrayInputPresenter.class.st
@@ -1,22 +1,20 @@
 Class {
-	#name : 'PyramidNumberArrayInputPresenter',
-	#superclass : 'PyramidInputPresenter',
+	#name : #PyramidNumberArrayInputPresenter,
+	#superclass : #PyramidInputPresenter,
 	#instVars : [
 		'submitBlock',
 		'inputArray'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberArrayInputPresenter >> applyStrings [
 
 	self inputArray help: self strings help
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberArrayInputPresenter >> defaultLayout [
 
 	^ SpBoxLayout newHorizontal
@@ -24,7 +22,7 @@ PyramidNumberArrayInputPresenter >> defaultLayout [
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberArrayInputPresenter >> getArrayFrom: aString [
 
 	| numbersAsString |
@@ -35,7 +33,7 @@ PyramidNumberArrayInputPresenter >> getArrayFrom: aString [
 		  NumberParser parse: each onError: [ ^ PyramidUnknowState new ] ]
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberArrayInputPresenter >> initializePresenters [
 
 	inputArray := SpTextInputFieldPresenter new
@@ -44,26 +42,26 @@ PyramidNumberArrayInputPresenter >> initializePresenters [
 		              yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberArrayInputPresenter >> inputArray [
 
 	^ inputArray
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberArrayInputPresenter >> submitBlock [
 
 	submitBlock ifNil: [ submitBlock := [ :n |  ] ].
 	^ submitBlock
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberArrayInputPresenter >> value [
 
 	^ self getArrayFrom: self inputArray text
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberArrayInputPresenter >> value: aCollection [
 
 	aCollection isCollection ifFalse: [
@@ -76,7 +74,7 @@ PyramidNumberArrayInputPresenter >> value: aCollection [
 	
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberArrayInputPresenter >> whenValueChangedDo: aBlock [
 
 	submitBlock := aBlock
diff --git a/src/Pyramid/PyramidNumberInputPresenter.class.st b/src/Pyramid/PyramidNumberInputPresenter.class.st
index 01c4a219..138106b3 100644
--- a/src/Pyramid/PyramidNumberInputPresenter.class.st
+++ b/src/Pyramid/PyramidNumberInputPresenter.class.st
@@ -2,24 +2,22 @@
 I can show and edit numbers
 "
 Class {
-	#name : 'PyramidNumberInputPresenter',
-	#superclass : 'PyramidInputPresenter',
+	#name : #PyramidNumberInputPresenter,
+	#superclass : #PyramidInputPresenter,
 	#instVars : [
 		'inputNumber',
 		'submitBlock'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberInputPresenter >> applyStrings [
 
 	self inputNumber help: self strings help
 ]
 
-{ #category : 'layout' }
+{ #category : #layout }
 PyramidNumberInputPresenter >> defaultLayout [
 
 	^ SpBoxLayout newHorizontal
@@ -27,38 +25,38 @@ PyramidNumberInputPresenter >> defaultLayout [
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidNumberInputPresenter >> getNumberFrom: aString [
 
 	^ NumberParser parse: aString onError: [ PyramidUnknowState new ]
 ]
 
-{ #category : 'initialization - deprecated' }
+{ #category : #'initialization - deprecated' }
 PyramidNumberInputPresenter >> initializePresenters [
 
 	inputNumber := SpTextInputFieldPresenter new whenSubmitDo: [ :text |
 			               self submitBlock value: (self getNumberFrom: text) ]; yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidNumberInputPresenter >> inputNumber [
 ^ inputNumber
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidNumberInputPresenter >> submitBlock [
 
 	submitBlock ifNil: [ submitBlock := [ :n | ] ].
 ^ submitBlock
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidNumberInputPresenter >> value [
 
 	^ self getNumberFrom: self inputNumber text
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidNumberInputPresenter >> value: aNumber [
 
 	aNumber isNumber ifTrue: [
@@ -67,7 +65,7 @@ PyramidNumberInputPresenter >> value: aNumber [
 	self inputNumber text: '--'
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidNumberInputPresenter >> whenValueChangedDo: aBlock [
 
 	submitBlock := aBlock
diff --git a/src/Pyramid/PyramidPanelBuilder.class.st b/src/Pyramid/PyramidPanelBuilder.class.st
index e6597ea1..f87319a7 100644
--- a/src/Pyramid/PyramidPanelBuilder.class.st
+++ b/src/Pyramid/PyramidPanelBuilder.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidPanelBuilder',
-	#superclass : 'Object',
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#name : #PyramidPanelBuilder,
+	#superclass : #Object,
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelBuilder >> item [
 "Return the item generated from self."
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelBuilder >> presenterOf: aCollectionOfItems [
 	"Return the presenter presenting the items generated by self"
 
 	
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPanelBuilder >> reset [
 	"Set value of all slot to nil"
 ]
diff --git a/src/Pyramid/PyramidPanelModel.class.st b/src/Pyramid/PyramidPanelModel.class.st
index 18297b53..b9485ade 100644
--- a/src/Pyramid/PyramidPanelModel.class.st
+++ b/src/Pyramid/PyramidPanelModel.class.st
@@ -1,18 +1,16 @@
 Class {
-	#name : 'PyramidPanelModel',
-	#superclass : 'Object',
+	#name : #PyramidPanelModel,
+	#superclass : #Object,
 	#instVars : [
 		'builder',
 		'items',
 		'window',
 		'presenter'
 	],
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelModel class >> menu [
 
 	^ self new
@@ -20,7 +18,7 @@ PyramidPanelModel class >> menu [
 		  yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelModel class >> presenter [
 
 	^ self new
@@ -28,7 +26,7 @@ PyramidPanelModel class >> presenter [
 		  yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelModel class >> tab [
 
 	^ self new
@@ -36,7 +34,7 @@ PyramidPanelModel class >> tab [
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPanelModel class >> toolbarHorizontal [
 
 ^ self new
@@ -44,7 +42,7 @@ PyramidPanelModel class >> toolbarHorizontal [
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPanelModel class >> toolbarVertical [
 
 	^ self new
@@ -54,7 +52,7 @@ PyramidPanelModel class >> toolbarVertical [
 		  yourself
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidPanelModel >> addItem: aBlock [
 
 	self builder reset.
@@ -63,64 +61,64 @@ PyramidPanelModel >> addItem: aBlock [
 	self informItemsChanged.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelModel >> builder [
 
 	^ builder
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelModel >> builder: anObject [
 
 	builder := anObject
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPanelModel >> informItemsChanged [
 
 	presenter := self builder presenterOf: self items.
 	self window panelUpdated
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidPanelModel >> initialize [
 
 	items := OrderedCollection new.
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPanelModel >> installOn: aPyramidWindow at: aServiceName [
 	aPyramidWindow services at:aServiceName put: self.
 	self window: aPyramidWindow.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelModel >> items [
 
 	^ items
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelModel >> presenter [
 
 	presenter ifNil: [ presenter := self builder presenterOf: self items ].
 	^ presenter
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidPanelModel >> removeItem: anItem [
 
 	self items remove: anItem.
 	self informItemsChanged.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelModel >> window [
 
 	^ window
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPanelModel >> window: anObject [
 
 	window := anObject
diff --git a/src/Pyramid/PyramidPlaygroundView.class.st b/src/Pyramid/PyramidPlaygroundView.class.st
index ea13ac1d..eb1d2274 100644
--- a/src/Pyramid/PyramidPlaygroundView.class.st
+++ b/src/Pyramid/PyramidPlaygroundView.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidPlaygroundView',
-	#superclass : 'SpPresenter',
+	#name : #PyramidPlaygroundView,
+	#superclass : #SpPresenter,
 	#instVars : [
 		'list',
 		'playground',
 		'codeObjectInteractionModel',
 		'contextLabel'
 	],
-	#category : 'Pyramid-plugin-playground',
-	#package : 'Pyramid',
-	#tag : 'plugin-playground'
+	#category : #'Pyramid-plugin-playground'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPlaygroundView >> contextLabel [
 
 	^ contextLabel
 ]
 
-{ #category : 'layout' }
+{ #category : #layout }
 PyramidPlaygroundView >> defaultLayout [
 
 	^ SpPanedLayout newVertical
@@ -40,7 +38,7 @@ PyramidPlaygroundView >> defaultLayout [
 		  yourself
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPlaygroundView >> initializePresenters [
 
 	list := SpListPresenter new.
@@ -50,17 +48,17 @@ PyramidPlaygroundView >> initializePresenters [
 	playground interactionModel: PyramidSpCodeObjectInteractionModel new.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPlaygroundView >> list [
 ^ list
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPlaygroundView >> playground [
 	^ playground
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPlaygroundView >> projectModel: aPyramidActiveProject [
 
 	aPyramidActiveProject announcer
@@ -75,20 +73,20 @@ PyramidPlaygroundView >> projectModel: aPyramidActiveProject [
 	self updateSelectedElementsWith: {  }
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPlaygroundView >> pyramidSelectionChanged: anEvent [
 
 	self updateSelectedElementsWith: anEvent selection.
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPlaygroundView >> updateSelectedElementsWith: aCollection [
 
 	self list items: aCollection.
 	contextLabel label: self valueOfSelf
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPlaygroundView >> valueOfSelf [
 
 	^ 'self is <1s>' expandMacrosWith:
diff --git a/src/Pyramid/PyramidPluginDynamicLayout.class.st b/src/Pyramid/PyramidPluginDynamicLayout.class.st
index be3f5fa7..08019f82 100644
--- a/src/Pyramid/PyramidPluginDynamicLayout.class.st
+++ b/src/Pyramid/PyramidPluginDynamicLayout.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'PyramidPluginDynamicLayout',
-	#superclass : 'Object',
+	#name : #PyramidPluginDynamicLayout,
+	#superclass : #Object,
 	#traits : 'TPyramidPlugin',
 	#classTraits : 'TPyramidPlugin classTrait',
 	#instVars : [
@@ -10,12 +10,10 @@ Class {
 		'isRightOpened',
 		'editorWindow'
 	],
-	#category : 'Pyramid-plugin-dynamic-layout',
-	#package : 'Pyramid',
-	#tag : 'plugin-dynamic-layout'
+	#category : #'Pyramid-plugin-dynamic-layout'
 }
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidPluginDynamicLayout >> addPanelsOn: aPyramidWindow [
 
 	aPyramidWindow
@@ -28,7 +26,7 @@ PyramidPluginDynamicLayout >> addPanelsOn: aPyramidWindow [
 		builder makeButtonWithIcon: self rightButton order: 9999 ]
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPluginDynamicLayout >> changeEditorLayout [
 
 	| strategy |
@@ -44,7 +42,7 @@ PyramidPluginDynamicLayout >> changeEditorLayout [
 	self editorWindow layoutStrategy: strategy
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPluginDynamicLayout >> changeLeftLayout [
 
 	self isLeftOpened: self isLeftOpened not.
@@ -52,7 +50,7 @@ PyramidPluginDynamicLayout >> changeLeftLayout [
 	self changeEditorLayout
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPluginDynamicLayout >> changeRightLayout [
 
 	self isRightOpened: self isRightOpened not.
@@ -60,25 +58,25 @@ PyramidPluginDynamicLayout >> changeRightLayout [
 	self changeEditorLayout
 ]
 
-{ #category : 'actions' }
+{ #category : #actions }
 PyramidPluginDynamicLayout >> configureBuilder: aPyramidBuilder [
 
 	editorWindow := PyramidDynamicWindow new.
 	aPyramidBuilder window: editorWindow
 ]
 
-{ #category : 'connecting' }
+{ #category : #connecting }
 PyramidPluginDynamicLayout >> connectOn: aPyramidEditor [
 
 	self changeEditorLayout
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPluginDynamicLayout >> editorWindow [
 	^ editorWindow
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPluginDynamicLayout >> initialize [
 
 	isLeftOpened := true.
@@ -96,48 +94,48 @@ PyramidPluginDynamicLayout >> initialize [
 		               yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPluginDynamicLayout >> isLeftOpened [
 
 	^ isLeftOpened
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPluginDynamicLayout >> isLeftOpened: anObject [
 
 	isLeftOpened := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPluginDynamicLayout >> isRightOpened [
 
 	^ isRightOpened
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPluginDynamicLayout >> isRightOpened: anObject [
 
 	isRightOpened := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPluginDynamicLayout >> leftButton [
 	^ leftButton
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPluginDynamicLayout >> leftButtonHelp [
 
 	self isLeftOpened ifTrue: [ ^ 'Hide left panel' ] ifFalse: [ ^ 'Show left panel' ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPluginDynamicLayout >> rightButton [
 
 	^ rightButton
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPluginDynamicLayout >> rightButtonHelp [
 
 	self isRightOpened
diff --git a/src/Pyramid/PyramidPluginManager.class.st b/src/Pyramid/PyramidPluginManager.class.st
index 3119b9cb..621ccdc9 100644
--- a/src/Pyramid/PyramidPluginManager.class.st
+++ b/src/Pyramid/PyramidPluginManager.class.st
@@ -1,51 +1,49 @@
 Class {
-	#name : 'PyramidPluginManager',
-	#superclass : 'Object',
+	#name : #PyramidPluginManager,
+	#superclass : #Object,
 	#instVars : [
 		'pluginClasses'
 	],
 	#classInstVars : [
 		'uniqueInstance'
 	],
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#category : #'Pyramid-core'
 }
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 PyramidPluginManager class >> cleanUp [
 	<script>
 	
 	self reset.
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 PyramidPluginManager class >> cleanUp: anObject [
 	"clean up pyramid plugins"
 
 	self cleanUp
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPluginManager class >> imagePluginClasses [
 	<script: 'self imagePluginClasses inspect'>
 
 	^ TPyramidPlugin users
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPluginManager class >> initialize [
 
 	uniqueInstance := self basicNew initialize.
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 PyramidPluginManager class >> new [
 
 	Error signal: 'Use uniqueInstance instead.'
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPluginManager class >> reset [
 	"Initialize each class implementing the trait TPyramidPlugin."
 
@@ -56,14 +54,14 @@ PyramidPluginManager class >> reset [
 	imagePlugins do: [ :each | each initialize ]
 ]
 
-{ #category : 'instance creation' }
+{ #category : #'instance creation' }
 PyramidPluginManager class >> uniqueInstance [
 
 	uniqueInstance ifNil: [ self initialize ].
 	^ uniqueInstance
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidPluginManager >> addPlugin: aPluginClass [
 
 	self pluginClasses add: aPluginClass.
@@ -72,7 +70,7 @@ PyramidPluginManager >> addPlugin: aPluginClass [
 	aPluginClass install.
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 PyramidPluginManager >> buildEditor [
 
 	^ PyramidEditorBuilder new
@@ -80,20 +78,20 @@ PyramidPluginManager >> buildEditor [
 		  build
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPluginManager >> initialize [
 
 	super initialize.
 	pluginClasses := Set new
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidPluginManager >> isPluginInstalled: aPluginClass [
 
 	^ self pluginClasses includes: aPluginClass
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 PyramidPluginManager >> makeEditor [
 
 	^ PyramidEditorBuilder new
@@ -103,13 +101,13 @@ PyramidPluginManager >> makeEditor [
 		  build
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 PyramidPluginManager >> pluginClasses [
 
 	^ pluginClasses
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidPluginManager >> removePlugin: aPluginClass [
 
 	self pluginClasses remove: aPluginClass ifAbsent: [  ].
diff --git a/src/Pyramid/PyramidPluginPlayground.class.st b/src/Pyramid/PyramidPluginPlayground.class.st
index df4743c3..fa066358 100644
--- a/src/Pyramid/PyramidPluginPlayground.class.st
+++ b/src/Pyramid/PyramidPluginPlayground.class.st
@@ -1,18 +1,16 @@
 Class {
-	#name : 'PyramidPluginPlayground',
-	#superclass : 'Object',
+	#name : #PyramidPluginPlayground,
+	#superclass : #Object,
 	#traits : 'TPyramidPlugin',
 	#classTraits : 'TPyramidPlugin classTrait',
 	#instVars : [
 		'activeProject',
 		'view'
 	],
-	#category : 'Pyramid-plugin-playground',
-	#package : 'Pyramid',
-	#tag : 'plugin-playground'
+	#category : #'Pyramid-plugin-playground'
 }
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidPluginPlayground >> addPanelsOn: aPyramidSimpleWindow [
 
 	aPyramidSimpleWindow at: #tabRight addItem: [ :builder |
@@ -23,19 +21,19 @@ PyramidPluginPlayground >> addPanelsOn: aPyramidSimpleWindow [
 			order: 100 ]
 ]
 
-{ #category : 'connecting' }
+{ #category : #connecting }
 PyramidPluginPlayground >> connectOn: aPyramidEditor [
 
 	self view projectModel: aPyramidEditor projectModel
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPluginPlayground >> initialize [
 
 	view := PyramidPlaygroundView new
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPluginPlayground >> view [
 
 	^ view
diff --git a/src/Pyramid/PyramidPointInputPresenter.class.st b/src/Pyramid/PyramidPointInputPresenter.class.st
index 7375005b..7e531bbd 100644
--- a/src/Pyramid/PyramidPointInputPresenter.class.st
+++ b/src/Pyramid/PyramidPointInputPresenter.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'PyramidPointInputPresenter',
-	#superclass : 'PyramidInputPresenter',
+	#name : #PyramidPointInputPresenter,
+	#superclass : #PyramidInputPresenter,
 	#instVars : [
 		'inputX',
 		'inputY',
@@ -8,18 +8,16 @@ Class {
 		'labelX',
 		'labelY'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputPresenter class >> stringsClass [
 
 	^ PyramidPointInputStrings
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPointInputPresenter >> applyStrings [
 
 	self inputX inputNumber help: self strings help.
@@ -28,7 +26,7 @@ PyramidPointInputPresenter >> applyStrings [
 	self labelY label: self strings labelY
 ]
 
-{ #category : 'layout' }
+{ #category : #layout }
 PyramidPointInputPresenter >> defaultLayout [
 
 	^ SpBoxLayout newHorizontal
@@ -42,7 +40,7 @@ PyramidPointInputPresenter >> defaultLayout [
 		  yourself
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPointInputPresenter >> initializePresenters [
 
 	inputX := PyramidNumberInputPresenter new
@@ -57,31 +55,31 @@ PyramidPointInputPresenter >> initializePresenters [
 	labelY := SpLabelPresenter new
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputPresenter >> inputX [
 
 	^ inputX
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputPresenter >> inputY [
 
 	^ inputY
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputPresenter >> labelX [
 
 	^ labelX
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputPresenter >> labelY [
 
 	^ labelY
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPointInputPresenter >> value [
 
 	| x y |
@@ -92,7 +90,7 @@ PyramidPointInputPresenter >> value [
 	^ x @ y
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPointInputPresenter >> value: aPoint [
 
 	aPoint isPoint ifTrue: [
@@ -103,13 +101,13 @@ PyramidPointInputPresenter >> value: aPoint [
 		self inputY value: nil.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputPresenter >> whenValueChangedDo [
 
 	^ whenValueChangedDo
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputPresenter >> whenValueChangedDo: anObject [
 
 	whenValueChangedDo := anObject
diff --git a/src/Pyramid/PyramidPointInputStrings.class.st b/src/Pyramid/PyramidPointInputStrings.class.st
index 149b4f28..cc620893 100644
--- a/src/Pyramid/PyramidPointInputStrings.class.st
+++ b/src/Pyramid/PyramidPointInputStrings.class.st
@@ -1,16 +1,14 @@
 Class {
-	#name : 'PyramidPointInputStrings',
-	#superclass : 'PyramidInputStrings',
+	#name : #PyramidPointInputStrings,
+	#superclass : #PyramidInputStrings,
 	#instVars : [
 		'labelX',
 		'labelY'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPointInputStrings >> initialize [
 
 	super initialize.
@@ -18,25 +16,25 @@ PyramidPointInputStrings >> initialize [
 	labelY := 'y'
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputStrings >> labelX [
 
 	^ labelX
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputStrings >> labelX: anObject [
 
 	labelX := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputStrings >> labelY [
 
 	^ labelY
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPointInputStrings >> labelY: anObject [
 
 	labelY := anObject
diff --git a/src/Pyramid/PyramidPopingPresenterBuilder.class.st b/src/Pyramid/PyramidPopingPresenterBuilder.class.st
index 4f9c4ad2..ff684f5f 100644
--- a/src/Pyramid/PyramidPopingPresenterBuilder.class.st
+++ b/src/Pyramid/PyramidPopingPresenterBuilder.class.st
@@ -5,14 +5,12 @@ I create a presenter with a main input to change property of all element at once
 
 "
 Class {
-	#name : 'PyramidPopingPresenterBuilder',
-	#superclass : 'PyramidPropertyPresenterBuilder',
-	#category : 'Pyramid-property',
-	#package : 'Pyramid',
-	#tag : 'property'
+	#name : #PyramidPopingPresenterBuilder,
+	#superclass : #PyramidPropertyPresenterBuilder,
+	#category : #'Pyramid-property'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopingPresenterBuilder >> build [
 
 	| presenterAll presentersGrouped presentersIndividual layout |
@@ -33,7 +31,7 @@ PyramidPopingPresenterBuilder >> build [
 		  yourself.
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopingPresenterBuilder >> buildLayoutAll: presenterAll grouped: presentersGrouped individual: presentersIndividual [
 
 	| presenterPopup buttonPopup |
@@ -56,7 +54,7 @@ PyramidPopingPresenterBuilder >> buildLayoutAll: presenterAll grouped: presenter
 	^ self layoutForAll: presenterAll buttonPopup: buttonPopup
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopingPresenterBuilder >> buildLayoutOnlyForAll: presenterAll [
 
 	| buttonPopup |
@@ -68,7 +66,7 @@ PyramidPopingPresenterBuilder >> buildLayoutOnlyForAll: presenterAll [
 	^ self layoutForAll: presenterAll buttonPopup: buttonPopup
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopingPresenterBuilder >> buildPresenterAll [
 
 	| input |
@@ -90,7 +88,7 @@ PyramidPopingPresenterBuilder >> buildPresenterAll [
 	^ input
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopingPresenterBuilder >> buildPresenterWithButtonsFor: anAssociation withLabel: aString [
 
 	| input buttonApplyToAll layout |
@@ -119,7 +117,7 @@ PyramidPopingPresenterBuilder >> buildPresenterWithButtonsFor: anAssociation wit
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopingPresenterBuilder >> buildPresentersGrouped [
 
 	| size label |
@@ -132,7 +130,7 @@ PyramidPopingPresenterBuilder >> buildPresentersGrouped [
 		  self buildPresenterWithButtonsFor: each withLabel: label ]
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopingPresenterBuilder >> buildPresentersIndividual [
 
 	| label |
@@ -142,7 +140,7 @@ PyramidPopingPresenterBuilder >> buildPresentersIndividual [
 		  self buildPresenterWithButtonsFor: each withLabel: label ]
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopingPresenterBuilder >> layoutForAll: presenterAll buttonPopup: buttonPopup [
 
 	^ SpBoxLayout newVertical
@@ -161,7 +159,7 @@ PyramidPopingPresenterBuilder >> layoutForAll: presenterAll buttonPopup: buttonP
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopingPresenterBuilder >> layoutForLabel: aString input: anInput button: aButton [
 
 	^ SpBoxLayout newHorizontal
@@ -173,7 +171,7 @@ PyramidPopingPresenterBuilder >> layoutForLabel: aString input: anInput button:
 		  yourself
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopingPresenterBuilder >> makeNewInput [
 
 	^ self property pyramidInputPresenterClass new
diff --git a/src/Pyramid/PyramidPopoverFactory.class.st b/src/Pyramid/PyramidPopoverFactory.class.st
index 15cadea9..3ac14869 100644
--- a/src/Pyramid/PyramidPopoverFactory.class.st
+++ b/src/Pyramid/PyramidPopoverFactory.class.st
@@ -1,12 +1,10 @@
 Class {
-	#name : 'PyramidPopoverFactory',
-	#superclass : 'Object',
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#name : #PyramidPopoverFactory,
+	#superclass : #Object,
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPopoverFactory class >> makeWithPresenter: aPresenter relativeTo: anInput position: aPopoverPosition [
 
 	| popover popupPresenter closeButton |
diff --git a/src/Pyramid/PyramidPresenterPanelBuilder.class.st b/src/Pyramid/PyramidPresenterPanelBuilder.class.st
index cbc5cfbe..555ffa0e 100644
--- a/src/Pyramid/PyramidPresenterPanelBuilder.class.st
+++ b/src/Pyramid/PyramidPresenterPanelBuilder.class.st
@@ -1,33 +1,31 @@
 Class {
-	#name : 'PyramidPresenterPanelBuilder',
-	#superclass : 'PyramidPanelBuilder',
+	#name : #PyramidPresenterPanelBuilder,
+	#superclass : #PyramidPanelBuilder,
 	#instVars : [
 		'item'
 	],
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPresenterPanelBuilder >> item [ 
 	^ item
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPresenterPanelBuilder >> makePresenter: aPresenter [
 
 	item := aPresenter
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPresenterPanelBuilder >> presenterOf: aCollectionOfItems [
 
 	aCollectionOfItems ifEmpty: [ ^ SpNullPresenter new ].
 	^ aCollectionOfItems first
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPresenterPanelBuilder >> reset [
  item := nil
 ]
diff --git a/src/Pyramid/PyramidPresenterPropertiesStrategy.class.st b/src/Pyramid/PyramidPresenterPropertiesStrategy.class.st
index ee4fe891..d915aae3 100644
--- a/src/Pyramid/PyramidPresenterPropertiesStrategy.class.st
+++ b/src/Pyramid/PyramidPresenterPropertiesStrategy.class.st
@@ -5,20 +5,18 @@ I do that with the message `#buildPresenterFromCollection:andManager:`
 
 "
 Class {
-	#name : 'PyramidPresenterPropertiesStrategy',
-	#superclass : 'Object',
-	#category : 'Pyramid-property',
-	#package : 'Pyramid',
-	#tag : 'property'
+	#name : #PyramidPresenterPropertiesStrategy,
+	#superclass : #Object,
+	#category : #'Pyramid-property'
 }
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidPresenterPropertiesStrategy class >> isAbstract [
 
 	^ self == PyramidPresenterPropertiesStrategy
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPresenterPropertiesStrategy >> buildPresenterFromCollection: aCollection andManager: aManager [
 
 	^ self shouldBeImplemented
diff --git a/src/Pyramid/PyramidProjectModel.class.st b/src/Pyramid/PyramidProjectModel.class.st
index de4a4c1e..4cb9ccf6 100644
--- a/src/Pyramid/PyramidProjectModel.class.st
+++ b/src/Pyramid/PyramidProjectModel.class.st
@@ -1,47 +1,45 @@
 Class {
-	#name : 'PyramidProjectModel',
-	#superclass : 'Object',
+	#name : #PyramidProjectModel,
+	#superclass : #Object,
 	#instVars : [
 		'editor',
 		'firstLevelElements',
 		'selection'
 	],
-	#category : 'Pyramid-models',
-	#package : 'Pyramid',
-	#tag : 'models'
+	#category : #'Pyramid-models'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidProjectModel >> announce: anEvent [
 
 	self announcer announce: anEvent
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidProjectModel >> announcer [
 
 	^ self editor announcer
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProjectModel >> editor [
 
 	^ editor
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProjectModel >> editor: anObject [
 
 	editor := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProjectModel >> firstLevelElements [
 
 	^ firstLevelElements
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidProjectModel >> informElementsChanged [
 
 	self announce: (PyramidElementsChangedEvent new
@@ -50,7 +48,7 @@ PyramidProjectModel >> informElementsChanged [
 			 yourself)
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidProjectModel >> informFirstLevelElementsChanged [
 
 	self announce: (PyramidFirstLevelElementsChangedEvent new
@@ -59,7 +57,7 @@ PyramidProjectModel >> informFirstLevelElementsChanged [
 			 yourself)
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidProjectModel >> informSelectionChanged [
 
 	self announce: (PyramidSelectionChangedEvent new
@@ -68,7 +66,7 @@ PyramidProjectModel >> informSelectionChanged [
 			 yourself)
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProjectModel >> initialize [
 
 	selection := PyramidCollectionWithCallbacks new.
@@ -82,20 +80,20 @@ PyramidProjectModel >> initialize [
 		withCallback: [ self informFirstLevelElementsChanged ]
 ]
 
-{ #category : 'selection' }
+{ #category : #selection }
 PyramidProjectModel >> selection [
 
 	^ selection
 ]
 
-{ #category : 'selection' }
+{ #category : #selection }
 PyramidProjectModel >> setSelection: aBlElementCollection [
 	"Replace current selection by another one"
 	
 	self selection replaceAll: aBlElementCollection
 ]
 
-{ #category : 'selection' }
+{ #category : #selection }
 PyramidProjectModel >> updateSelection [
 	"Update the selection list regarding existing elements"
 	
diff --git a/src/Pyramid/PyramidProjectModelEvent.class.st b/src/Pyramid/PyramidProjectModelEvent.class.st
index 24381383..2188ab33 100644
--- a/src/Pyramid/PyramidProjectModelEvent.class.st
+++ b/src/Pyramid/PyramidProjectModelEvent.class.st
@@ -1,34 +1,32 @@
 Class {
-	#name : 'PyramidProjectModelEvent',
-	#superclass : 'PyramidEvent',
+	#name : #PyramidProjectModelEvent,
+	#superclass : #PyramidEvent,
 	#instVars : [
 		'selection',
 		'firstLevelElements'
 	],
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#category : #'Pyramid-core'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProjectModelEvent >> firstLevelElements [
 
 	^ firstLevelElements
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProjectModelEvent >> firstLevelElements: anObject [
 
 	firstLevelElements := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProjectModelEvent >> selection [
 
 	^ selection
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProjectModelEvent >> selection: anObject [
 
 	selection := anObject
diff --git a/src/Pyramid/PyramidPropertiesManager.class.st b/src/Pyramid/PyramidPropertiesManager.class.st
index 0c970937..06fdd063 100644
--- a/src/Pyramid/PyramidPropertiesManager.class.st
+++ b/src/Pyramid/PyramidPropertiesManager.class.st
@@ -1,56 +1,54 @@
 Class {
-	#name : 'PyramidPropertiesManager',
-	#superclass : 'Object',
+	#name : #PyramidPropertiesManager,
+	#superclass : #Object,
 	#instVars : [
 		'properties',
 		'commandExecutor',
 		'presenterStrategy',
 		'history'
 	],
-	#category : 'Pyramid-property',
-	#package : 'Pyramid',
-	#tag : 'property'
+	#category : #'Pyramid-property'
 }
 
-{ #category : 'removing' }
+{ #category : #removing }
 PyramidPropertiesManager >> addAllProperties: aCollection [
 
 	aCollection do: [ :each | self addProperty: each ]
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidPropertiesManager >> addProperty: aPyramidProperty [
 
 	aPyramidProperty commandExecutor: self commandExecutor.
 	self properties add: aPyramidProperty
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPropertiesManager >> buildPresenterFromCollection: aCollection [
 
 	^ self presenterStrategy buildPresenterFromCollection: aCollection andManager: self
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertiesManager >> commandExecutor [
 
 	^ commandExecutor
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertiesManager >> commandExecutor: anObject [
 
 	commandExecutor := anObject.
 	self properties do: [ :each | each commandExecutor: anObject ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertiesManager >> history [
 
 	^ history
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPropertiesManager >> initialize [
 
 	properties := OrderedCollection new.
@@ -63,31 +61,31 @@ PyramidPropertiesManager >> initialize [
 	presenterStrategy := PyramidHideEmptyPropertyStrategy new
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertiesManager >> presenterStrategy [
 
 	^ presenterStrategy
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertiesManager >> presenterStrategy: anObject [
 
 	presenterStrategy := anObject.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertiesManager >> properties [
 
 	^ properties
 ]
 
-{ #category : 'removing' }
+{ #category : #removing }
 PyramidPropertiesManager >> removeAllProperties [
 
 	self properties asArray do: [ :each | self removeProperty: each ].
 ]
 
-{ #category : 'removing' }
+{ #category : #removing }
 PyramidPropertiesManager >> removeProperty: aProperty [
 
 
diff --git a/src/Pyramid/PyramidPropertiesManagerForSelection.class.st b/src/Pyramid/PyramidPropertiesManagerForSelection.class.st
index ddc08b1a..050d83c7 100644
--- a/src/Pyramid/PyramidPropertiesManagerForSelection.class.st
+++ b/src/Pyramid/PyramidPropertiesManagerForSelection.class.st
@@ -1,17 +1,15 @@
 Class {
-	#name : 'PyramidPropertiesManagerForSelection',
-	#superclass : 'PyramidPropertiesManager',
+	#name : #PyramidPropertiesManagerForSelection,
+	#superclass : #PyramidPropertiesManager,
 	#instVars : [
 		'presenter',
 		'shouldComputeProperties',
 		'projectModel'
 	],
-	#category : 'Pyramid-property',
-	#package : 'Pyramid',
-	#tag : 'property'
+	#category : #'Pyramid-property'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPropertiesManagerForSelection >> computeProperties: aCollection [
 
 	self presenter layout child:
@@ -19,7 +17,7 @@ PyramidPropertiesManagerForSelection >> computeProperties: aCollection [
 	self shouldComputeProperties: false
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidPropertiesManagerForSelection >> initialize [
 
 	super initialize.
@@ -35,19 +33,19 @@ PyramidPropertiesManagerForSelection >> initialize [
 	commandExecutor afterDo: [ self projectModel informElementsChanged ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertiesManagerForSelection >> presenter [
 
 	^ presenter
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertiesManagerForSelection >> projectModel [
 
 	^ projectModel
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertiesManagerForSelection >> projectModel: aPyramidProjectModel [
 
 	projectModel := aPyramidProjectModel.
@@ -61,7 +59,7 @@ PyramidPropertiesManagerForSelection >> projectModel: aPyramidProjectModel [
 		for: self.
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPropertiesManagerForSelection >> selectionOrElementsChanged: anEvent [
 
 	self shouldComputeProperties: true.
@@ -69,13 +67,13 @@ PyramidPropertiesManagerForSelection >> selectionOrElementsChanged: anEvent [
 	self computeProperties: anEvent selection
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPropertiesManagerForSelection >> shouldComputeProperties [
 
 	^ shouldComputeProperties
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPropertiesManagerForSelection >> shouldComputeProperties: aBoolean [
 
 	shouldComputeProperties:= aBoolean
diff --git a/src/Pyramid/PyramidProperty.class.st b/src/Pyramid/PyramidProperty.class.st
index 541f21dd..52ded07c 100644
--- a/src/Pyramid/PyramidProperty.class.st
+++ b/src/Pyramid/PyramidProperty.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'PyramidProperty',
-	#superclass : 'Object',
+	#name : #PyramidProperty,
+	#superclass : #Object,
 	#instVars : [
 		'command',
 		'commandExecutor',
@@ -9,12 +9,10 @@ Class {
 		'name',
 		'pyramidInputPresenterStrings'
 	],
-	#category : 'Pyramid-property',
-	#package : 'Pyramid',
-	#tag : 'property'
+	#category : #'Pyramid-property'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidProperty >> buildPresenterFromCluster: aCluster [
 
 	^ self presenterBuilder
@@ -23,81 +21,81 @@ PyramidProperty >> buildPresenterFromCluster: aCluster [
 		  build
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> command [
 
 	^ command
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> command: anObject [
 
 	command := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> commandExecutor [
 
 	^ commandExecutor
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> commandExecutor: anObject [
 
 	commandExecutor := anObject
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidProperty >> initialize [
 
 	presenterBuilder := PyramidPopingPresenterBuilder new.
 	name := 'Default property name'
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> name [
 
 	^ name
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> name: anObject [
 
 	name := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> presenterBuilder [
 
 	^ presenterBuilder
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> presenterBuilder: anObject [
 
 	presenterBuilder := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> pyramidInputPresenterClass [
 
 	^ pyramidInputPresenterClass
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> pyramidInputPresenterClass: anObject [
 
 	pyramidInputPresenterClass := anObject.
 	self pyramidInputPresenterStrings: anObject stringsClass new
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> pyramidInputPresenterStrings [
 
 	^ pyramidInputPresenterStrings
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidProperty >> pyramidInputPresenterStrings: anObject [
 
 	pyramidInputPresenterStrings := anObject
diff --git a/src/Pyramid/PyramidPropertyNotInstalledError.class.st b/src/Pyramid/PyramidPropertyNotInstalledError.class.st
index 59a73816..839cb6c3 100644
--- a/src/Pyramid/PyramidPropertyNotInstalledError.class.st
+++ b/src/Pyramid/PyramidPropertyNotInstalledError.class.st
@@ -1,34 +1,32 @@
 Class {
-	#name : 'PyramidPropertyNotInstalledError',
-	#superclass : 'PyramidError',
+	#name : #PyramidPropertyNotInstalledError,
+	#superclass : #PyramidError,
 	#instVars : [
 		'manager',
 		'property'
 	],
-	#category : 'Pyramid-property',
-	#package : 'Pyramid',
-	#tag : 'property'
+	#category : #'Pyramid-property'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyNotInstalledError >> manager [
 
 	^ manager
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyNotInstalledError >> manager: anObject [
 
 	manager := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyNotInstalledError >> property [
 
 	^ property
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyNotInstalledError >> property: anObject [
 
 	property := anObject
diff --git a/src/Pyramid/PyramidPropertyPopupPresenter.class.st b/src/Pyramid/PyramidPropertyPopupPresenter.class.st
index 32ab9467..a0af4e94 100644
--- a/src/Pyramid/PyramidPropertyPopupPresenter.class.st
+++ b/src/Pyramid/PyramidPropertyPopupPresenter.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'PyramidPropertyPopupPresenter',
-	#superclass : 'SpPresenter',
+	#name : #PyramidPropertyPopupPresenter,
+	#superclass : #SpPresenter,
 	#instVars : [
 		'buttonIndividual',
 		'buttonGroup',
@@ -8,54 +8,52 @@ Class {
 		'groupedPresenters',
 		'name'
 	],
-	#category : 'Pyramid-property',
-	#package : 'Pyramid',
-	#tag : 'property'
+	#category : #'Pyramid-property'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPopupPresenter >> buttonGroup [
 
 	^ buttonGroup
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPopupPresenter >> buttonIndividual [
 
 	^ buttonIndividual
 ]
 
-{ #category : 'layout' }
+{ #category : #layout }
 PyramidPropertyPopupPresenter >> defaultLayout [
 
 	^ SpBoxLayout newVertical
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPopupPresenter >> groupedPresenters [
 
 	^ groupedPresenters
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPopupPresenter >> groupedPresenters: anObject [
 
 	groupedPresenters := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPopupPresenter >> individualPresenters [
 
 	^ individualPresenters
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPopupPresenter >> individualPresenters: anObject [
 
 	individualPresenters := anObject
 ]
 
-{ #category : 'initialization - deprecated' }
+{ #category : #'initialization - deprecated' }
 PyramidPropertyPopupPresenter >> initializePresenters [
 
 	individualPresenters := {  }.
@@ -75,7 +73,7 @@ PyramidPropertyPopupPresenter >> initializePresenters [
 	buttonGroup whenActivatedDo: [ self showGroupPresenter ]
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPropertyPopupPresenter >> layoutWith: aCollection [
 
 	| inputsLayout scroll |
@@ -112,19 +110,19 @@ PyramidPropertyPopupPresenter >> layoutWith: aCollection [
 		  yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPopupPresenter >> name [
 
 	^ name
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPopupPresenter >> name: anObject [
 
 	name := anObject
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPropertyPopupPresenter >> name: aString grouped: groupedCollection individual: individualCollection [
 
 	self name: aString.
@@ -134,13 +132,13 @@ PyramidPropertyPopupPresenter >> name: aString grouped: groupedCollection indivi
 	self buttonGroup state ifTrue: [ self showGroupPresenter ] ifFalse: [ self showIndividualPresenter ].
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPropertyPopupPresenter >> showGroupPresenter [
 
 	self layout: (self layoutWith: self groupedPresenters).
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidPropertyPopupPresenter >> showIndividualPresenter [
 
 	self layout: (self layoutWith: self individualPresenters)
diff --git a/src/Pyramid/PyramidPropertyPresenterBuilder.class.st b/src/Pyramid/PyramidPropertyPresenterBuilder.class.st
index 2b3bb440..1eedbf21 100644
--- a/src/Pyramid/PyramidPropertyPresenterBuilder.class.st
+++ b/src/Pyramid/PyramidPropertyPresenterBuilder.class.st
@@ -3,48 +3,46 @@ I transform a `PyramidCluster` and a `NeoPyramidProperty` into a `SpPresenter`.
 
 "
 Class {
-	#name : 'PyramidPropertyPresenterBuilder',
-	#superclass : 'Object',
+	#name : #PyramidPropertyPresenterBuilder,
+	#superclass : #Object,
 	#instVars : [
 		'cluster',
 		'property'
 	],
-	#category : 'Pyramid-property',
-	#package : 'Pyramid',
-	#tag : 'property'
+	#category : #'Pyramid-property'
 }
 
-{ #category : 'testing' }
+{ #category : #testing }
 PyramidPropertyPresenterBuilder class >> isAbstract [
 
 	^ self == PyramidPropertyPresenterBuilder
 ]
 
-{ #category : 'building' }
+{ #category : #building }
 PyramidPropertyPresenterBuilder >> build [
 
 	^ self shouldBeImplemented
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPresenterBuilder >> cluster [
 
 	^ cluster
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPresenterBuilder >> cluster: anObject [
 
 	cluster := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPresenterBuilder >> property [
 
 	^ property
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidPropertyPresenterBuilder >> property: anObject [
 
 	property := anObject
diff --git a/src/Pyramid/PyramidRemoveAllFromCollectionCommand.class.st b/src/Pyramid/PyramidRemoveAllFromCollectionCommand.class.st
index f806ede2..e039ab4d 100644
--- a/src/Pyramid/PyramidRemoveAllFromCollectionCommand.class.st
+++ b/src/Pyramid/PyramidRemoveAllFromCollectionCommand.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidRemoveAllFromCollectionCommand',
-	#superclass : 'PyramidCollectionCommand',
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#name : #PyramidRemoveAllFromCollectionCommand,
+	#superclass : #PyramidCollectionCommand,
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidRemoveAllFromCollectionCommand >> commandInverse [
 
 	^ PyramidAddAllToCollectionCommand new
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidRemoveAllFromCollectionCommand >> getValueFor: anObject [
 
 	^ nil
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidRemoveAllFromCollectionCommand >> setValueFor: anObject with: anArgument [
 
 	anObject removeAll: anArgument
diff --git a/src/Pyramid/PyramidRemoveFromCollectionCommand.class.st b/src/Pyramid/PyramidRemoveFromCollectionCommand.class.st
index 7ea9b162..cf9386a4 100644
--- a/src/Pyramid/PyramidRemoveFromCollectionCommand.class.st
+++ b/src/Pyramid/PyramidRemoveFromCollectionCommand.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidRemoveFromCollectionCommand',
-	#superclass : 'PyramidCollectionCommand',
-	#category : 'Pyramid-commands',
-	#package : 'Pyramid',
-	#tag : 'commands'
+	#name : #PyramidRemoveFromCollectionCommand,
+	#superclass : #PyramidCollectionCommand,
+	#category : #'Pyramid-commands'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidRemoveFromCollectionCommand >> commandInverse [
 
 	^ PyramidAddToCollectionCommand new
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidRemoveFromCollectionCommand >> getValueFor: anObject [
 
 	^ nil
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidRemoveFromCollectionCommand >> setValueFor: anObject with: anArgument [
 
 	anObject remove: anArgument
diff --git a/src/Pyramid/PyramidSelectionChangedEvent.class.st b/src/Pyramid/PyramidSelectionChangedEvent.class.st
index eb87bb1b..363506a3 100644
--- a/src/Pyramid/PyramidSelectionChangedEvent.class.st
+++ b/src/Pyramid/PyramidSelectionChangedEvent.class.st
@@ -1,7 +1,5 @@
 Class {
-	#name : 'PyramidSelectionChangedEvent',
-	#superclass : 'PyramidProjectModelEvent',
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#name : #PyramidSelectionChangedEvent,
+	#superclass : #PyramidProjectModelEvent,
+	#category : #'Pyramid-core'
 }
diff --git a/src/Pyramid/PyramidSerializerLoader.class.st b/src/Pyramid/PyramidSerializerLoader.class.st
new file mode 100644
index 00000000..c9011593
--- /dev/null
+++ b/src/Pyramid/PyramidSerializerLoader.class.st
@@ -0,0 +1,11 @@
+Class {
+	#name : #PyramidSerializerLoader,
+	#superclass : #Object,
+	#category : #'Pyramid-external-ressources'
+}
+
+{ #category : #'as yet unclassified' }
+PyramidSerializerLoader class >> loadClass: aClass selector: aSelector [
+
+	^ (aClass perform: aSelector) materializeAsBlElement
+]
diff --git a/src/Pyramid/PyramidSimpleWindow.class.st b/src/Pyramid/PyramidSimpleWindow.class.st
index bcdf0262..1f5a6e7a 100644
--- a/src/Pyramid/PyramidSimpleWindow.class.st
+++ b/src/Pyramid/PyramidSimpleWindow.class.st
@@ -1,12 +1,10 @@
 Class {
-	#name : 'PyramidSimpleWindow',
-	#superclass : 'PyramidWindow',
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#name : #PyramidSimpleWindow,
+	#superclass : #PyramidWindow,
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'specs' }
+{ #category : #specs }
 PyramidSimpleWindow >> centerLayout [
 
 	^ SpPanedLayout newLeftToRight
@@ -20,7 +18,7 @@ PyramidSimpleWindow >> centerLayout [
 		  yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSimpleWindow >> layout [
 
 	| mainLayout |
@@ -32,7 +30,7 @@ PyramidSimpleWindow >> layout [
 	^ mainLayout
 ]
 
-{ #category : 'specs' }
+{ #category : #specs }
 PyramidSimpleWindow >> topLayout [
 
 	| layout |
diff --git a/src/Pyramid/PyramidSortedCollectionWithCallbacks.class.st b/src/Pyramid/PyramidSortedCollectionWithCallbacks.class.st
index 92c4e933..f3ad34a3 100644
--- a/src/Pyramid/PyramidSortedCollectionWithCallbacks.class.st
+++ b/src/Pyramid/PyramidSortedCollectionWithCallbacks.class.st
@@ -1,46 +1,44 @@
 Class {
-	#name : 'PyramidSortedCollectionWithCallbacks',
-	#superclass : 'PyramidCollectionWithCallbacks',
+	#name : #PyramidSortedCollectionWithCallbacks,
+	#superclass : #PyramidCollectionWithCallbacks,
 	#instVars : [
 		'sortFunction'
 	],
-	#category : 'Pyramid-models',
-	#package : 'Pyramid',
-	#tag : 'models'
+	#category : #'Pyramid-models'
 }
 
-{ #category : 'signalling' }
+{ #category : #signalling }
 PyramidSortedCollectionWithCallbacks >> collection: aCollection [	
 
 	collection := aCollection	
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidSortedCollectionWithCallbacks >> initialize [
 
 	super initialize.
 	sortFunction := [ :a :b | true ].
 ]
 
-{ #category : 'signalling' }
+{ #category : #signalling }
 PyramidSortedCollectionWithCallbacks >> signalChanged [
 
 	self sortCollection.
 	self subscriptions do: [ :callback | callback value ]
 ]
 
-{ #category : 'signalling' }
+{ #category : #signalling }
 PyramidSortedCollectionWithCallbacks >> sortCollection [.
 	self collection: (self collection sorted: self sortFunction).
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSortedCollectionWithCallbacks >> sortFunction [
 
 	^ sortFunction
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSortedCollectionWithCallbacks >> sortFunction: anObject [
 
 	sortFunction := anObject
diff --git a/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st b/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st
index 7f132ae8..5ae77801 100644
--- a/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st
+++ b/src/Pyramid/PyramidSpCodeObjectInteractionModel.class.st
@@ -1,15 +1,13 @@
 Class {
-	#name : 'PyramidSpCodeObjectInteractionModel',
-	#superclass : 'SpCodeScriptingInteractionModel',
+	#name : #PyramidSpCodeObjectInteractionModel,
+	#superclass : #SpCodeScriptingInteractionModel,
 	#instVars : [
 		'projectModel'
 	],
-	#category : 'Pyramid-plugin-playground',
-	#package : 'Pyramid',
-	#tag : 'plugin-playground'
+	#category : #'Pyramid-plugin-playground'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSpCodeObjectInteractionModel >> doItReceiver [
 
 	self projectModel selection ifEmpty: [
@@ -19,7 +17,7 @@ PyramidSpCodeObjectInteractionModel >> doItReceiver [
 	^ self projectModel selection asArray
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidSpCodeObjectInteractionModel >> doItReceiverString [
 
 	self projectModel selection ifEmpty: [
@@ -30,19 +28,19 @@ PyramidSpCodeObjectInteractionModel >> doItReceiverString [
 		  self projectModel selection size
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidSpCodeObjectInteractionModel >> isScripting [
 
 	^ true
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSpCodeObjectInteractionModel >> projectModel [
 
 	^ projectModel
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSpCodeObjectInteractionModel >> projectModel: anObject [
 
 	projectModel := anObject
diff --git a/src/Pyramid/PyramidSpPresenter.class.st b/src/Pyramid/PyramidSpPresenter.class.st
index ca97b06a..2939f972 100644
--- a/src/Pyramid/PyramidSpPresenter.class.st
+++ b/src/Pyramid/PyramidSpPresenter.class.st
@@ -1,12 +1,10 @@
 Class {
-	#name : 'PyramidSpPresenter',
-	#superclass : 'SpPresenter',
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#name : #PyramidSpPresenter,
+	#superclass : #SpPresenter,
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSpPresenter >> aboutTitle [
 
 	^ PyramidWindow aboutTitle
diff --git a/src/Pyramid/PyramidStonLoader.class.st b/src/Pyramid/PyramidStonLoader.class.st
deleted file mode 100644
index 6c5ad9bc..00000000
--- a/src/Pyramid/PyramidStonLoader.class.st
+++ /dev/null
@@ -1,13 +0,0 @@
-Class {
-	#name : 'PyramidStonLoader',
-	#superclass : 'Object',
-	#category : 'Pyramid-external-ressources',
-	#package : 'Pyramid',
-	#tag : 'external-ressources'
-}
-
-{ #category : 'as yet unclassified' }
-PyramidStonLoader class >> loadClass: aClass selector: aSelector [
-
-	^ (aClass perform: aSelector) materializeAsBlElement
-]
diff --git a/src/Pyramid/PyramidSwitchInputStrings.class.st b/src/Pyramid/PyramidSwitchInputStrings.class.st
index af05dea8..5304a8ef 100644
--- a/src/Pyramid/PyramidSwitchInputStrings.class.st
+++ b/src/Pyramid/PyramidSwitchInputStrings.class.st
@@ -1,17 +1,15 @@
 Class {
-	#name : 'PyramidSwitchInputStrings',
-	#superclass : 'PyramidInputStrings',
+	#name : #PyramidSwitchInputStrings,
+	#superclass : #PyramidInputStrings,
 	#instVars : [
 		'onLabel',
 		'offLabel',
 		'uncertainLabel'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidSwitchInputStrings >> initialize [
 
 	super initialize.
@@ -20,37 +18,37 @@ PyramidSwitchInputStrings >> initialize [
 	uncertainLabel := ''
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSwitchInputStrings >> offLabel [
 
 	^ offLabel
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSwitchInputStrings >> offLabel: anObject [
 
 	offLabel := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSwitchInputStrings >> onLabel [
 
 	^ onLabel
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSwitchInputStrings >> onLabel: anObject [
 
 	onLabel := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSwitchInputStrings >> uncertainLabel [
 
 	^ uncertainLabel
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidSwitchInputStrings >> uncertainLabel: anObject [
 
 	uncertainLabel := anObject
diff --git a/src/Pyramid/PyramidTabItem.class.st b/src/Pyramid/PyramidTabItem.class.st
index 8916cef5..b2277756 100644
--- a/src/Pyramid/PyramidTabItem.class.st
+++ b/src/Pyramid/PyramidTabItem.class.st
@@ -1,24 +1,22 @@
 Class {
-	#name : 'PyramidTabItem',
-	#superclass : 'Object',
+	#name : #PyramidTabItem,
+	#superclass : #Object,
 	#instVars : [
 		'presenter',
 		'order',
 		'label',
 		'icon'
 	],
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'comparing' }
+{ #category : #comparing }
 PyramidTabItem >> <= anObject [
 
 	^ self order <= anObject order
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidTabItem >> addOnNotebook: aNotebook [
 
 	aNotebook addPage: (SpNotebookPage
@@ -27,49 +25,49 @@ PyramidTabItem >> addOnNotebook: aNotebook [
 			 provider:  self presenter )
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabItem >> icon [
 
 	^ icon
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabItem >> icon: anObject [
 
 	icon := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabItem >> label [
 
 	^ label
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabItem >> label: anObject [
 
 	label := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabItem >> order [
 
 	^ order
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabItem >> order: anObject [
 
 	order := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabItem >> presenter [
 
 	^ presenter
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabItem >> presenter: anObject [
 
 	presenter := anObject
diff --git a/src/Pyramid/PyramidTabPanelBuilder.class.st b/src/Pyramid/PyramidTabPanelBuilder.class.st
index a9350961..b2f5aa0c 100644
--- a/src/Pyramid/PyramidTabPanelBuilder.class.st
+++ b/src/Pyramid/PyramidTabPanelBuilder.class.st
@@ -1,22 +1,20 @@
 Class {
-	#name : 'PyramidTabPanelBuilder',
-	#superclass : 'PyramidPanelBuilder',
+	#name : #PyramidTabPanelBuilder,
+	#superclass : #PyramidPanelBuilder,
 	#instVars : [
 		'presenter',
 		'item'
 	],
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabPanelBuilder >> item [
 
 	^ item
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidTabPanelBuilder >> makeTab: aPresenter label: aString icon: anIcon order: aNumber [
 
 	item := PyramidTabItem new
@@ -27,13 +25,13 @@ PyramidTabPanelBuilder >> makeTab: aPresenter label: aString icon: anIcon order:
 		        yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabPanelBuilder >> notebook [
 
 	^ SpNotebookPresenter new
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTabPanelBuilder >> presenterOf: aCollectionOfItems [
 
 	| notebook |
@@ -46,7 +44,7 @@ PyramidTabPanelBuilder >> presenterOf: aCollectionOfItems [
 	^ notebook
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidTabPanelBuilder >> reset [
 
 	item := nil
diff --git a/src/Pyramid/PyramidTextInputPresenter.class.st b/src/Pyramid/PyramidTextInputPresenter.class.st
index 5c6d3286..a3323814 100644
--- a/src/Pyramid/PyramidTextInputPresenter.class.st
+++ b/src/Pyramid/PyramidTextInputPresenter.class.st
@@ -3,53 +3,51 @@ i can show and edit text
 
 "
 Class {
-	#name : 'PyramidTextInputPresenter',
-	#superclass : 'PyramidInputPresenter',
+	#name : #PyramidTextInputPresenter,
+	#superclass : #PyramidInputPresenter,
 	#instVars : [
 		'textInput'
 	],
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidTextInputPresenter >> applyStrings [
 
 	self textInput help: self strings help
 ]
 
-{ #category : 'layout' }
+{ #category : #layout }
 PyramidTextInputPresenter >> defaultLayout [
 
 	^ SpBoxLayout newVertical add: self textInput; yourself
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidTextInputPresenter >> initializePresenters [
 
 	textInput := SpTextInputFieldPresenter new
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidTextInputPresenter >> textInput [
 
 	^ textInput
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidTextInputPresenter >> value [
 
 	^ self textInput text
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidTextInputPresenter >> value: anObject [
 
 	self textInput text: anObject asString
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidTextInputPresenter >> whenValueChangedDo: aBlock [
 
 	self textInput whenSubmitDo: aBlock.
diff --git a/src/Pyramid/PyramidToolbarItem.class.st b/src/Pyramid/PyramidToolbarItem.class.st
index 231edfab..1872c58a 100644
--- a/src/Pyramid/PyramidToolbarItem.class.st
+++ b/src/Pyramid/PyramidToolbarItem.class.st
@@ -1,59 +1,57 @@
 Class {
-	#name : 'PyramidToolbarItem',
-	#superclass : 'Object',
+	#name : #PyramidToolbarItem,
+	#superclass : #Object,
 	#instVars : [
 		'presenter',
 		'constraints',
 		'order'
 	],
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'comparing' }
+{ #category : #comparing }
 PyramidToolbarItem >> <= aPyramidToolbarItem [
 
 	^ self order <= aPyramidToolbarItem order
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 PyramidToolbarItem >> addOnLayout: aLayout [
 
 	aLayout add: self presenter withConstraints: self constraints.
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarItem >> constraints [
 
 	^ constraints
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarItem >> constraints: anObject [
 
 	constraints := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarItem >> order [
 
 	^ order
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarItem >> order: anObject [
 
 	order := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarItem >> presenter [
 
 	^ presenter
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarItem >> presenter: anObject [
 
 	presenter := anObject
diff --git a/src/Pyramid/PyramidToolbarPanelBuilder.class.st b/src/Pyramid/PyramidToolbarPanelBuilder.class.st
index 780a97e6..cb40c62d 100644
--- a/src/Pyramid/PyramidToolbarPanelBuilder.class.st
+++ b/src/Pyramid/PyramidToolbarPanelBuilder.class.st
@@ -1,52 +1,50 @@
 Class {
-	#name : 'PyramidToolbarPanelBuilder',
-	#superclass : 'PyramidPanelBuilder',
+	#name : #PyramidToolbarPanelBuilder,
+	#superclass : #PyramidPanelBuilder,
 	#instVars : [
 		'item',
 		'isHorizontal'
 	],
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarPanelBuilder >> height [
 
 	^ 32
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarPanelBuilder >> isHorizontal [
 
 	isHorizontal ifNil: [ isHorizontal := true ].
 	^ isHorizontal
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarPanelBuilder >> isHorizontal: anObject [
 
 	isHorizontal := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarPanelBuilder >> item [
 
 	^ item
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarPanelBuilder >> item: anObject [
 
 	item := anObject
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarPanelBuilder >> layout [
 	self isHorizontal ifTrue: [ ^ SpBoxLayout newHorizontal spacing: 4; yourself ] ifFalse: [ ^ SpBoxLayout newVertical spacing: 4; yourself ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarPanelBuilder >> makeButtonWithIcon: anObject order: aNumber [
 
 	item := PyramidToolbarItem new
@@ -56,7 +54,7 @@ PyramidToolbarPanelBuilder >> makeButtonWithIcon: anObject order: aNumber [
 		        yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarPanelBuilder >> makeEmptyWith: aConstraintsBlock order: aNumber [
 
 	item := PyramidToolbarItem new
@@ -66,7 +64,7 @@ PyramidToolbarPanelBuilder >> makeEmptyWith: aConstraintsBlock order: aNumber [
 		        yourself
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarPanelBuilder >> presenterOf: aCollectionOfItems [
 
 	| layout |
@@ -77,19 +75,19 @@ PyramidToolbarPanelBuilder >> presenterOf: aCollectionOfItems [
 		  yourself
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidToolbarPanelBuilder >> reset [
 
 	item:= nil
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidToolbarPanelBuilder >> squareButtonConstraints [
 
 	^ [ :c | c width: self width. c height: self height ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidToolbarPanelBuilder >> width [
 	^ 32
 ]
diff --git a/src/Pyramid/PyramidUnknowState.class.st b/src/Pyramid/PyramidUnknowState.class.st
index 9c987780..8ac2ac34 100644
--- a/src/Pyramid/PyramidUnknowState.class.st
+++ b/src/Pyramid/PyramidUnknowState.class.st
@@ -1,85 +1,83 @@
 Class {
-	#name : 'PyramidUnknowState',
-	#superclass : 'Object',
-	#category : 'Pyramid-specs-custom',
-	#package : 'Pyramid',
-	#tag : 'specs-custom'
+	#name : #PyramidUnknowState,
+	#superclass : #Object,
+	#category : #'Pyramid-specs-custom'
 }
 
-{ #category : 'comparing' }
+{ #category : #comparing }
 PyramidUnknowState >> = anObject [
 
 	self == anObject ifTrue: [ ^ true ].
 	^ self class = anObject class
 ]
 
-{ #category : 'converting' }
+{ #category : #converting }
 PyramidUnknowState >> asBlBackground [
 
 	^ self
 ]
 
-{ #category : 'converting' }
+{ #category : #converting }
 PyramidUnknowState >> asBooleanForPyramid [
 
 	^ self
 ]
 
-{ #category : 'converting' }
+{ #category : #converting }
 PyramidUnknowState >> asColor [
 
 	^ Color transparent
 ]
 
-{ #category : 'converting' }
+{ #category : #converting }
 PyramidUnknowState >> asIcon [
 
 	^ Smalltalk ui icons iconNamed: #comments
 ]
 
-{ #category : 'converting' }
+{ #category : #converting }
 PyramidUnknowState >> asOrientationForFlowPyramid [
 
 	^ self
 ]
 
-{ #category : 'converting' }
+{ #category : #converting }
 PyramidUnknowState >> asOrientationForLinearPyramid [
 
 	^ self
 ]
 
-{ #category : 'converting' }
+{ #category : #converting }
 PyramidUnknowState >> asPyramidConstraintsArgument [
 
 	^ self
 ]
 
-{ #category : 'converting' }
+{ #category : #converting }
 PyramidUnknowState >> asString [
 
 	^ '@ Unknow state'
 ]
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 PyramidUnknowState >> pyramidSelectOn: anInput [
 
 	anInput unselectAll
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidUnknowState >> setConstraintsOn: aPyramidBasicConstraintsInputPresenter [
 
 	aPyramidBasicConstraintsInputPresenter setUnknowValue
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidUnknowState >> setCornerRadiiOn: aPyramidCornerRadiiInputPresenter [
 
 	aPyramidCornerRadiiInputPresenter inputArray value: self
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidUnknowState >> setInsetsOn: aPyramidInsetsInputPresenter [
 
 	aPyramidInsetsInputPresenter inputArray value: self
diff --git a/src/Pyramid/PyramidWindow.class.st b/src/Pyramid/PyramidWindow.class.st
index 49d1a3cc..6b4fdc96 100644
--- a/src/Pyramid/PyramidWindow.class.st
+++ b/src/Pyramid/PyramidWindow.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : 'PyramidWindow',
-	#superclass : 'Object',
+	#name : #PyramidWindow,
+	#superclass : #Object,
 	#instVars : [
 		'presenter',
 		'services',
@@ -8,12 +8,10 @@ Class {
 		'spec',
 		'whenClosedDo'
 	],
-	#category : 'Pyramid-views',
-	#package : 'Pyramid',
-	#tag : 'views'
+	#category : #'Pyramid-views'
 }
 
-{ #category : 'window - properties' }
+{ #category : #'window - properties' }
 PyramidWindow class >> aboutText [
 
 	^ 'Pyramid is an User-Interface (UI) editor.
@@ -43,32 +41,32 @@ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 SOFTWARE.'
 ]
 
-{ #category : 'window - properties' }
+{ #category : #'window - properties' }
 PyramidWindow class >> aboutTitle [
 
 	^ 'Pyramid'
 ]
 
-{ #category : 'window - properties' }
+{ #category : #'window - properties' }
 PyramidWindow class >> defaultTitle [
 
 	^ 'New project | ' , self aboutTitle
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidWindow >> at: aSymbol addItem: aBlock [
 
 	(self services at: aSymbol) addItem: aBlock
 ]
 
-{ #category : 'api - showing' }
+{ #category : #'api - showing' }
 PyramidWindow >> close [
 
 	self isOpen ifFalse: [ ^ self ].
 	self presenter owner close.
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidWindow >> initialize [
 
 	title := self class defaultTitle.
@@ -83,7 +81,7 @@ PyramidWindow >> initialize [
 	PyramidPanelModel menu installOn: self at: #selectionMenu
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 PyramidWindow >> initializePresenter [
 	"a Spec presenter using the services as an entry"
 
@@ -91,25 +89,25 @@ PyramidWindow >> initializePresenter [
 	^ presenter
 ]
 
-{ #category : 'api - showing' }
+{ #category : #'api - showing' }
 PyramidWindow >> isClosed [
 
 	^ self presenter owner ifNotNil: [ :w | w isClosed ] ifNil: [ true ]
 ]
 
-{ #category : 'api - showing' }
+{ #category : #'api - showing' }
 PyramidWindow >> isOpen [
 
 	^ self isClosed not
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidWindow >> layout [
 
 	^ self shouldBeImplemented
 ]
 
-{ #category : 'api - showing' }
+{ #category : #'api - showing' }
 PyramidWindow >> open [
 
 	spec := self presenter asWindow open.
@@ -120,13 +118,13 @@ PyramidWindow >> open [
 	^ spec
 ]
 
-{ #category : 'private' }
+{ #category : #private }
 PyramidWindow >> panelUpdated [
 
 	self presenter layout: self layout
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidWindow >> presenter [
 	"a Spec presenter using the services as an entry"
 
@@ -134,7 +132,7 @@ PyramidWindow >> presenter [
 	^ presenter
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidWindow >> services [
 	"Collection of key -> value
 	key : aSymbol
@@ -144,32 +142,32 @@ PyramidWindow >> services [
 	^ services
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidWindow >> spec [
 
 	^ spec
 ]
 
-{ #category : 'api - showing' }
+{ #category : #'api - showing' }
 PyramidWindow >> title [
 
 	^ title
 ]
 
-{ #category : 'api - showing' }
+{ #category : #'api - showing' }
 PyramidWindow >> title: aString [
 
 	title := aString.
 	self isOpen ifTrue: [ self presenter owner title: aString ]
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidWindow >> whenClosedDo [
 
 	^ whenClosedDo
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 PyramidWindow >> whenClosedDo: aBlock [
 
 	whenClosedDo:= aBlock
diff --git a/src/Pyramid/TPyramidFindPlugin.trait.st b/src/Pyramid/TPyramidFindPlugin.trait.st
index 8bb60ef9..79944593 100644
--- a/src/Pyramid/TPyramidFindPlugin.trait.st
+++ b/src/Pyramid/TPyramidFindPlugin.trait.st
@@ -1,11 +1,9 @@
 Trait {
-	#name : 'TPyramidFindPlugin',
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#name : #TPyramidFindPlugin,
+	#category : #'Pyramid-core'
 }
 
-{ #category : 'as yet unclassified' }
+{ #category : #'as yet unclassified' }
 TPyramidFindPlugin >> findPlugin: aSymbolOrAClass [
 
 	| allPlugins |
@@ -28,7 +26,7 @@ TPyramidFindPlugin >> findPlugin: aSymbolOrAClass [
 	^ allPlugins asArray first
 ]
 
-{ #category : 'accessing' }
+{ #category : #accessing }
 TPyramidFindPlugin >> plugins [
 	"Return a collection of TPyramidPlugin instances."
 
diff --git a/src/Pyramid/TPyramidPlugin.trait.st b/src/Pyramid/TPyramidPlugin.trait.st
index 63ed3b00..20e56c9a 100644
--- a/src/Pyramid/TPyramidPlugin.trait.st
+++ b/src/Pyramid/TPyramidPlugin.trait.st
@@ -1,11 +1,9 @@
 Trait {
-	#name : 'TPyramidPlugin',
-	#category : 'Pyramid-core',
-	#package : 'Pyramid',
-	#tag : 'core'
+	#name : #TPyramidPlugin,
+	#category : #'Pyramid-core'
 }
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 TPyramidPlugin classSide >> initialize [ 
 	<script>
 
@@ -13,12 +11,12 @@ TPyramidPlugin classSide >> initialize [
 	PyramidPluginManager uniqueInstance addPlugin: self
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 TPyramidPlugin classSide >> install [
 	"Do some stuff here when the plugin used class oriented behavior"
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 TPyramidPlugin classSide >> reset [
 
 	<script>
@@ -26,27 +24,27 @@ TPyramidPlugin classSide >> reset [
 	self install
 ]
 
-{ #category : 'asserting' }
+{ #category : #asserting }
 TPyramidPlugin classSide >> shouldInstall [
 
 	^ true
 ]
 
-{ #category : 'initialization' }
+{ #category : #initialization }
 TPyramidPlugin classSide >> uninstall [
 	"Undo some stuff here when the plugin used class oriented behavior"
 ]
 
-{ #category : 'adding' }
+{ #category : #adding }
 TPyramidPlugin >> addPanelsOn: aPyramidSimpleWindow [
 ]
 
-{ #category : 'actions' }
+{ #category : #actions }
 TPyramidPlugin >> configureBuilder: aPyramidEditorBuilder [
 
 	
 ]
 
-{ #category : 'connecting' }
+{ #category : #connecting }
 TPyramidPlugin >> connectOn: aPyramidEditor [
 ]
diff --git a/src/Pyramid/package.st b/src/Pyramid/package.st
index 4aa122f8..7529e5a3 100644
--- a/src/Pyramid/package.st
+++ b/src/Pyramid/package.st
@@ -1 +1 @@
-Package { #name : 'Pyramid' }
+Package { #name : #Pyramid }