set a few method protocols

magritte-metamodel · Jun 18, 2024 · ece4341 · ece4341
1 parent 5f87e85
commit ece4341
Show file tree

Hide file tree

Showing 47 changed files with 45 additions and 62 deletions.
diff --git a/source/Magritte-Model/MAAdaptiveModel.class.st b/source/Magritte-Model/MAAdaptiveModel.class.st
@@ -8,7 +8,7 @@ Class {
 		'magritteDescription',
 		'values'
 	],
-	#category : 'Magritte-Model-Models'
+	#category : #'Magritte-Model-Models'
 }
 
 { #category : #'instance creation' }

diff --git a/source/Magritte-Model/MABasicObject.class.st b/source/Magritte-Model/MABasicObject.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #MABasicObject,
 	#superclass : #GRObject,
-	#category : 'Magritte-Model-Core'
+	#category : #'Magritte-Model-Core'
 }
 
 { #category : #'error handling' }

diff --git a/source/Magritte-Model/MABooleanDescription.class.st b/source/Magritte-Model/MABooleanDescription.class.st
@@ -4,7 +4,7 @@ I am a description of the Boolean values ==true== and ==false==. My visual repre
 Class {
 	#name : #MABooleanDescription,
 	#superclass : #MAElementDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MAColorDescription.class.st b/source/Magritte-Model/MAColorDescription.class.st
@@ -4,7 +4,7 @@ I am a description of colors, possible values are instances of ==Color==. My vis
 Class {
 	#name : #MAColorDescription,
 	#superclass : #MAElementDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MACondition.class.st b/source/Magritte-Model/MACondition.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #MACondition,
 	#superclass : #MAObject,
-	#category : 'Magritte-Model-Utility'
+	#category : #'Magritte-Model-Utility'
 }
 
 { #category : #testing }

diff --git a/source/Magritte-Model/MAConditionError.class.st b/source/Magritte-Model/MAConditionError.class.st
@@ -4,5 +4,5 @@ I am an error that is raised whenever a user-defined condition is failing.
 Class {
 	#name : #MAConditionError,
 	#superclass : #MAValidationError,
-	#category : 'Magritte-Model-Exception'
+	#category : #'Magritte-Model-Exception'
 }
diff --git a/source/Magritte-Model/MAConflictError.class.st b/source/Magritte-Model/MAConflictError.class.st
@@ -4,5 +4,5 @@ I am an error that is raised whenever there is an edit conflict.
 Class {
 	#name : #MAConflictError,
 	#superclass : #MAValidationError,
-	#category : 'Magritte-Model-Exception'
+	#category : #'Magritte-Model-Exception'
 }
diff --git a/source/Magritte-Model/MAConjunctiveCondition.class.st b/source/Magritte-Model/MAConjunctiveCondition.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'conditions'
 	],
-	#category : 'Magritte-Model-Utility'
+	#category : #'Magritte-Model-Utility'
 }
 
 { #category : #operators }

diff --git a/source/Magritte-Model/MADateAndTimeDescription.class.st b/source/Magritte-Model/MADateAndTimeDescription.class.st
@@ -4,7 +4,7 @@ I am a description of date and times, possible values are instances of ==DateAnd
 Class {
 	#name : #MADateAndTimeDescription,
 	#superclass : #MAMagnitudeDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MADateDescription.class.st b/source/Magritte-Model/MADateDescription.class.st
@@ -4,7 +4,7 @@ I am a description of dates, possible values are instances of ==Date==. My visua
 Class {
 	#name : #MADateDescription,
 	#superclass : #MAMagnitudeDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MADurationDescription.class.st b/source/Magritte-Model/MADurationDescription.class.st
@@ -4,7 +4,7 @@ I am a description of durations, possible values are instances of ==Duration==.
 Class {
 	#name : #MADurationDescription,
 	#superclass : #MAMagnitudeDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MADynamicDescribedObject.class.st b/source/Magritte-Model/MADynamicDescribedObject.class.st
@@ -1,5 +1,5 @@
 Class {
 	#name : #MADynamicDescribedObject,
 	#superclass : #MADynamicVariable,
-	#category : 'Magritte-Model-Utility'
+	#category : #'Magritte-Model-Utility'
 }
diff --git a/source/Magritte-Model/MADynamicVariable.class.st b/source/Magritte-Model/MADynamicVariable.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #MADynamicVariable,
 	#superclass : #GRNotification,
-	#category : 'Magritte-Model-Utility'
+	#category : #'Magritte-Model-Utility'
 }
 
 { #category : #defaults }

diff --git a/source/Magritte-Model/MAElementDescription.class.st b/source/Magritte-Model/MAElementDescription.class.st
@@ -116,7 +116,7 @@ MAElementDescription >> lazilyInitializeFrom: currentValue for: anObject [
 	^ defaultValue
 ]
 
-{ #category : #'*magritte-model' }
+{ #category : #printing }
 MAElementDescription >> printFor: anObject on: aWriteStream [ 
 	(self read: anObject) ifNotNil: [ :value | aWriteStream nextPutAll: (self toString: value) ]
 ]

diff --git a/source/Magritte-Model/MAElementDescription.extension.st b/source/Magritte-Model/MAElementDescription.extension.st
diff --git a/source/Magritte-Model/MAError.class.st b/source/Magritte-Model/MAError.class.st
@@ -4,5 +4,5 @@ I represent a generic Magritte error.
 Class {
 	#name : #MAError,
 	#superclass : #GRError,
-	#category : 'Magritte-Model-Exception'
+	#category : #'Magritte-Model-Exception'
 }
diff --git a/source/Magritte-Model/MAFileModel.class.st b/source/Magritte-Model/MAFileModel.class.st
@@ -14,7 +14,7 @@ Class {
 	#classVars : [
 		'MimeTypes'
 	],
-	#category : 'Magritte-Model-Models'
+	#category : #'Magritte-Model-Models'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MAIdentityAccessor.class.st b/source/Magritte-Model/MAIdentityAccessor.class.st
@@ -4,7 +4,7 @@ I am a read-only access strategy and I answer the model itself when being read.
 Class {
 	#name : #MAIdentityAccessor,
 	#superclass : #MAAccessor,
-	#category : 'Magritte-Model-Accessor'
+	#category : #'Magritte-Model-Accessor'
 }
 
 { #category : #testing }

diff --git a/source/Magritte-Model/MAKindError.class.st b/source/Magritte-Model/MAKindError.class.st
@@ -4,5 +4,5 @@ I am an error that is raised whenever a description is applied to the wrong type
 Class {
 	#name : #MAKindError,
 	#superclass : #MAValidationError,
-	#category : 'Magritte-Model-Exception'
+	#category : #'Magritte-Model-Exception'
 }
diff --git a/source/Magritte-Model/MAMagnitudeDescription.class.st b/source/Magritte-Model/MAMagnitudeDescription.class.st
@@ -4,7 +4,7 @@ I am an abstract description for subclasses of ==Magnitude==. The range of accep
 Class {
 	#name : #MAMagnitudeDescription,
 	#superclass : #MAElementDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MAMemoDescription.class.st b/source/Magritte-Model/MAMemoDescription.class.st
@@ -4,7 +4,7 @@ I am a description of multiline strings, possible values are instances of ==Stri
 Class {
 	#name : #MAMemoDescription,
 	#superclass : #MAStringDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MAMemoryFileModel.class.st b/source/Magritte-Model/MAMemoryFileModel.class.st
@@ -7,7 +7,7 @@ Class {
 	#instVars : [
 		'contents'
 	],
-	#category : 'Magritte-Model-Models'
+	#category : #'Magritte-Model-Models'
 }
 
 { #category : #comparing }

diff --git a/source/Magritte-Model/MAMultipleErrors.class.st b/source/Magritte-Model/MAMultipleErrors.class.st
@@ -7,7 +7,7 @@ Class {
 	#instVars : [
 		'collection'
 	],
-	#category : 'Magritte-Model-Exception'
+	#category : #'Magritte-Model-Exception'
 }
 
 { #category : #'instance creation' }

diff --git a/source/Magritte-Model/MANegationCondition.class.st b/source/Magritte-Model/MANegationCondition.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'condition'
 	],
-	#category : 'Magritte-Model-Utility'
+	#category : #'Magritte-Model-Utility'
 }
 
 { #category : #'instance creation' }

diff --git a/source/Magritte-Model/MANullAccessor.class.st b/source/Magritte-Model/MANullAccessor.class.st
@@ -7,7 +7,7 @@ Class {
 	#instVars : [
 		'uuid'
 	],
-	#category : 'Magritte-Model-Accessor'
+	#category : #'Magritte-Model-Accessor'
 }
 
 { #category : #testing }

diff --git a/source/Magritte-Model/MAPasswordDescription.class.st b/source/Magritte-Model/MAPasswordDescription.class.st
@@ -4,7 +4,7 @@ I am a description of a password string, possible values are instances of ==Stri
 Class {
 	#name : #MAPasswordDescription,
 	#superclass : #MAStringDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #accessing }

diff --git a/source/Magritte-Model/MAPluggableAccessor.class.st b/source/Magritte-Model/MAPluggableAccessor.class.st
@@ -8,7 +8,7 @@ Class {
 		'readBlock',
 		'writeBlock'
 	],
-	#category : 'Magritte-Model-Accessor'
+	#category : #'Magritte-Model-Accessor'
 }
 
 { #category : #testing }

diff --git a/source/Magritte-Model/MAPluggableCondition.class.st b/source/Magritte-Model/MAPluggableCondition.class.st
@@ -7,7 +7,7 @@ Class {
 		'arguments',
 		'index'
 	],
-	#category : 'Magritte-Model-Utility'
+	#category : #'Magritte-Model-Utility'
 }
 
 { #category : #initialization }

diff --git a/source/Magritte-Model/MAPriorityContainer.class.st b/source/Magritte-Model/MAPriorityContainer.class.st
@@ -4,7 +4,7 @@ I am a container holding a collection of descriptions and I keep them sorted acc
 Class {
 	#name : #MAPriorityContainer,
 	#superclass : #MAContainer,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MAPropertyError.class.st b/source/Magritte-Model/MAPropertyError.class.st
@@ -1,5 +1,5 @@
 Class {
 	#name : #MAPropertyError,
 	#superclass : #MAError,
-	#category : 'Magritte-Model-Exception'
+	#category : #'Magritte-Model-Exception'
 }
diff --git a/source/Magritte-Model/MARangeError.class.st b/source/Magritte-Model/MARangeError.class.st
@@ -4,5 +4,5 @@ I am an error that is raised whenever a described value is out of bounds.
 Class {
 	#name : #MARangeError,
 	#superclass : #MAValidationError,
-	#category : 'Magritte-Model-Exception'
+	#category : #'Magritte-Model-Exception'
 }
diff --git a/source/Magritte-Model/MAReadError.class.st b/source/Magritte-Model/MAReadError.class.st
@@ -4,5 +4,5 @@ I am an error that gets raised when there is problem reading serialized data.
 Class {
 	#name : #MAReadError,
 	#superclass : #MAError,
-	#category : 'Magritte-Model-Exception'
+	#category : #'Magritte-Model-Exception'
 }
diff --git a/source/Magritte-Model/MAReader.class.st b/source/Magritte-Model/MAReader.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #MAReader,
 	#superclass : #MAStreamingVisitor,
-	#category : 'Magritte-Model-Visitor'
+	#category : #'Magritte-Model-Visitor'
 }
 
 { #category : #'instance creation' }

diff --git a/source/Magritte-Model/MARequiredError.class.st b/source/Magritte-Model/MARequiredError.class.st
@@ -4,5 +4,5 @@ I am an error that is raised whenever a required value is not supplied.
 Class {
 	#name : #MARequiredError,
 	#superclass : #MAValidationError,
-	#category : 'Magritte-Model-Exception'
+	#category : #'Magritte-Model-Exception'
 }
diff --git a/source/Magritte-Model/MASortBlock.class.st b/source/Magritte-Model/MASortBlock.class.st
@@ -5,7 +5,7 @@ Class {
 		'accessor',
 		'selector'
 	],
-	#category : 'Magritte-Model-Utility'
+	#category : #'Magritte-Model-Utility'
 }
 
 { #category : #'instance creation' }

diff --git a/source/Magritte-Model/MAStreamingVisitor.class.st b/source/Magritte-Model/MAStreamingVisitor.class.st
@@ -5,7 +5,7 @@ Class {
 		'stream',
 		'object'
 	],
-	#category : 'Magritte-Model-Visitor'
+	#category : #'Magritte-Model-Visitor'
 }
 
 { #category : #streaming }

diff --git a/source/Magritte-Model/MAStringDescription.class.st b/source/Magritte-Model/MAStringDescription.class.st
@@ -4,7 +4,7 @@ I am a description of strings, possible values are instances of ==String==. My v
 Class {
 	#name : #MAStringDescription,
 	#superclass : #MAElementDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MASymbolDescription.class.st b/source/Magritte-Model/MASymbolDescription.class.st
@@ -4,7 +4,7 @@ I am a description of symbols, possible values are instances of ==Symbol==.
 Class {
 	#name : #MASymbolDescription,
 	#superclass : #MAStringDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MATPropertyOwner.extension.st b/source/Magritte-Model/MATPropertyOwner.extension.st
diff --git a/source/Magritte-Model/MATPropertyOwner.trait.st b/source/Magritte-Model/MATPropertyOwner.trait.st
@@ -36,7 +36,7 @@ MATPropertyOwner >> hasProperty: aKey [
 	^ self properties includesKey: aKey
 ]
 
-{ #category : #'*Magritte-Model' }
+{ #category : #accessing }
 MATPropertyOwner >> maLazyPropertyUsing: description [
 	"Return the current value of a field as specified by its description. See #lazilyInitializeFrom:for: comment for more info.
 		- NB: Only works with a selector accessor with matching property e.g. (readSelector = property = #myField). It could be extended to other cases if the need arises."

diff --git a/source/Magritte-Model/MATableModel.class.st b/source/Magritte-Model/MATableModel.class.st
@@ -9,7 +9,7 @@ Class {
 		'columnCount',
 		'contents'
 	],
-	#category : 'Magritte-Model-Models'
+	#category : #'Magritte-Model-Models'
 }
 
 { #category : #'instance creation' }

diff --git a/source/Magritte-Model/MAToManyScalarRelationDescription.class.st b/source/Magritte-Model/MAToManyScalarRelationDescription.class.st
@@ -4,7 +4,7 @@ Like MAToManyRelationDescription but for scalar values.
 Class {
 	#name : #MAToManyScalarRelationDescription,
 	#superclass : #MAToManyRelationDescription,
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #accessing }

diff --git a/source/Magritte-Model/MATokenDescription.class.st b/source/Magritte-Model/MATokenDescription.class.st
@@ -7,7 +7,7 @@ Class {
 	#instVars : [
 		'separators'
 	],
-	#category : 'Magritte-Model-Description'
+	#category : #'Magritte-Model-Description'
 }
 
 { #category : #'accessing-defaults' }

diff --git a/source/Magritte-Model/MAValueHolder.class.st b/source/Magritte-Model/MAValueHolder.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'contents'
 	],
-	#category : 'Magritte-Model-Utility'
+	#category : #'Magritte-Model-Utility'
 }
 
 { #category : #'instance creation' }

diff --git a/source/Magritte-Model/MAVariableAccessor.class.st b/source/Magritte-Model/MAVariableAccessor.class.st
@@ -7,7 +7,7 @@ Class {
 	#instVars : [
 		'name'
 	],
-	#category : 'Magritte-Model-Accessor'
+	#category : #'Magritte-Model-Accessor'
 }
 
 { #category : #testing }

diff --git a/source/Magritte-Model/MAWriteError.class.st b/source/Magritte-Model/MAWriteError.class.st
@@ -4,5 +4,5 @@ I am an error that gets raised when there is problem writing serialized data.
 Class {
 	#name : #MAWriteError,
 	#superclass : #MAError,
-	#category : 'Magritte-Model-Exception'
+	#category : #'Magritte-Model-Exception'
 }