diff --git a/source/Magritte-Model.package/BlockClosure.extension/instance/optionFor.ifPresent..st b/source/Magritte-Model.package/BlockClosure.extension/instance/optionFor.ifPresent..st index b2f2175a..6ace1adb 100644 --- a/source/Magritte-Model.package/BlockClosure.extension/instance/optionFor.ifPresent..st +++ b/source/Magritte-Model.package/BlockClosure.extension/instance/optionFor.ifPresent..st @@ -1,3 +1,3 @@ -*magritte-model-description +*Magritte-Model optionFor: anObject ifPresent: aBlock aBlock value: (self cull: anObject) \ No newline at end of file diff --git a/source/Magritte-Model.package/Class.extension/instance/label.st b/source/Magritte-Model.package/Class.extension/instance/label.st index 13b7cf48..d3ab4be4 100644 --- a/source/Magritte-Model.package/Class.extension/instance/label.st +++ b/source/Magritte-Model.package/Class.extension/instance/label.st @@ -1,4 +1,4 @@ -*magritte-model-accessing +*Magritte-Model label "Answer a human-readable name of the receiving class. This implementation tries to be smart and return a nice label, unfortunately for a lot of classes this doesn't work well so subclasses might want to override this method and return soemthing more meaningfull to end-users." diff --git a/source/Magritte-Model.package/Collection.extension/instance/maSelectMatching..st b/source/Magritte-Model.package/Collection.extension/instance/maSelectMatching..st index da4613f8..46845988 100644 --- a/source/Magritte-Model.package/Collection.extension/instance/maSelectMatching..st +++ b/source/Magritte-Model.package/Collection.extension/instance/maSelectMatching..st @@ -1,3 +1,3 @@ -*magritte-model-dynopt +*Magritte-Model maSelectMatching: aString ^ self select: [ :e | e asString startsWith: aString ] \ No newline at end of file diff --git a/source/Magritte-Model.package/Dictionary.extension/instance/optionFor.ifPresent..st b/source/Magritte-Model.package/Dictionary.extension/instance/optionFor.ifPresent..st index acddae7e..c074e888 100644 --- a/source/Magritte-Model.package/Dictionary.extension/instance/optionFor.ifPresent..st +++ b/source/Magritte-Model.package/Dictionary.extension/instance/optionFor.ifPresent..st @@ -1,3 +1,3 @@ -*magritte-model-description +*Magritte-Model optionFor: anObject ifPresent: aBlock self at: anObject ifPresent: aBlock diff --git a/source/Magritte-Model.package/Integer.extension/instance/asFileSize.st b/source/Magritte-Model.package/Integer.extension/instance/asFileSize.st index 6335b2e6..1a750e96 100644 --- a/source/Magritte-Model.package/Integer.extension/instance/asFileSize.st +++ b/source/Magritte-Model.package/Integer.extension/instance/asFileSize.st @@ -1,4 +1,4 @@ -*magritte-model-converting +*Magritte-Model asFileSize #( 'B' 'KB' 'MB' 'GB' 'TB' 'PB' 'EB' 'ZB' 'YB' ) inject: self diff --git a/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilder..st b/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilder..st index eb3b68e6..29a35e63 100644 --- a/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilder..st +++ b/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilder..st @@ -1,3 +1,3 @@ -*magritte-model-builder +builder descriptionBuilder: aBuilderClass self propertyAt: #descriptionBuilder put: aBuilderClass \ No newline at end of file diff --git a/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilder.st b/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilder.st index d6304355..c9694484 100644 --- a/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilder.st +++ b/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilder.st @@ -1,3 +1,3 @@ -*magritte-model-builder +builder descriptionBuilder ^self propertyAt: #descriptionBuilder ifAbsent: [ nil ] \ No newline at end of file diff --git a/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilders..st b/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilders..st index dd955118..7f0bf60c 100644 --- a/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilders..st +++ b/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilders..st @@ -1,4 +1,4 @@ -*magritte-model-builder +builder descriptionBuilders: aList self descriptionBuilder: MAComposedDescriptionBuilder. self propertyAt: #descriptionBuilders put: aList \ No newline at end of file diff --git a/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilders.st b/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilders.st index 88fa9f53..7a3f6535 100644 --- a/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilders.st +++ b/source/Magritte-Model.package/MAContainer.class/instance/descriptionBuilders.st @@ -1,3 +1,3 @@ -*magritte-model-builder +builder descriptionBuilders ^self propertyAt: #descriptionBuilders ifAbsent: [ #() ] \ No newline at end of file diff --git a/source/Magritte-Model.package/MADescription.class/instance/canExpand..st b/source/Magritte-Model.package/MADescription.class/instance/canExpand..st index a91cb877..a69abac0 100644 --- a/source/Magritte-Model.package/MADescription.class/instance/canExpand..st +++ b/source/Magritte-Model.package/MADescription.class/instance/canExpand..st @@ -1,4 +1,4 @@ -*magritte-model-builder +builder canExpand: aBoolean " used to expand a relation description into a group " ^self propertyAt: #canExpand put: aBoolean \ No newline at end of file diff --git a/source/Magritte-Model.package/MADescription.class/instance/canExpand.st b/source/Magritte-Model.package/MADescription.class/instance/canExpand.st index 3683de54..976fa6aa 100644 --- a/source/Magritte-Model.package/MADescription.class/instance/canExpand.st +++ b/source/Magritte-Model.package/MADescription.class/instance/canExpand.st @@ -1,4 +1,4 @@ -*magritte-model-builder +builder canExpand " used to expand a relation description into a group " ^self propertyAt: #canExpand ifAbsent: [ self defaultCanExpand ] \ No newline at end of file diff --git a/source/Magritte-Model.package/MADescription.class/instance/defaultCanExpand.st b/source/Magritte-Model.package/MADescription.class/instance/defaultCanExpand.st index fb4f850a..8cbecefc 100644 --- a/source/Magritte-Model.package/MADescription.class/instance/defaultCanExpand.st +++ b/source/Magritte-Model.package/MADescription.class/instance/defaultCanExpand.st @@ -1,4 +1,4 @@ -*magritte-model-builder +builder defaultCanExpand " used to expand a relation description into a group " self isVisible ifFalse: [ ^false ]. diff --git a/source/Magritte-Model.package/MADynamicOptions.class/properties.json b/source/Magritte-Model.package/MADynamicOptions.class/properties.json index 78fb0e37..5a143908 100644 --- a/source/Magritte-Model.package/MADynamicOptions.class/properties.json +++ b/source/Magritte-Model.package/MADynamicOptions.class/properties.json @@ -1,16 +1,15 @@ { - "category" : "Magritte-Model-Utility", - "classinstvars" : [ - ], - "classvars" : [ - ], "commentStamp" : "", + "super" : "Object", + "category" : "Magritte-Model-Utility", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], "instvars" : [ "block", "completionToObjectBlock", - "includesBlock" ], + "includesBlock" + ], "name" : "MADynamicOptions", - "pools" : [ - ], - "super" : "Object", - "type" : "normal" } + "type" : "normal" +} \ No newline at end of file diff --git a/source/Magritte-Model.package/Object.extension/instance/descriptionContainer.st b/source/Magritte-Model.package/Object.extension/instance/descriptionContainer.st index 1f0e8519..95cacca2 100644 --- a/source/Magritte-Model.package/Object.extension/instance/descriptionContainer.st +++ b/source/Magritte-Model.package/Object.extension/instance/descriptionContainer.st @@ -1,4 +1,4 @@ -*magritte-model-accessing +*Magritte-Model descriptionContainer "Return the default description container." diff --git a/source/Magritte-Model.package/Object.extension/instance/magritteDescriptionBuilders.st b/source/Magritte-Model.package/Object.extension/instance/magritteDescriptionBuilders.st index 703bd756..64928c9c 100644 --- a/source/Magritte-Model.package/Object.extension/instance/magritteDescriptionBuilders.st +++ b/source/Magritte-Model.package/Object.extension/instance/magritteDescriptionBuilders.st @@ -1,4 +1,4 @@ -*magritte-model-builder +*Magritte-Model magritteDescriptionBuilders |builderPragmas container| builderPragmas := Pragma allNamed: #magritteBuilder from: self class to: Object. diff --git a/source/Magritte-Model.package/Object.extension/instance/mementoClass.st b/source/Magritte-Model.package/Object.extension/instance/mementoClass.st index 0f847c72..7f0bcaf3 100644 --- a/source/Magritte-Model.package/Object.extension/instance/mementoClass.st +++ b/source/Magritte-Model.package/Object.extension/instance/mementoClass.st @@ -1,4 +1,4 @@ -*magritte-model-accessing +*Magritte-Model mementoClass "Return a class to be used to remember or cache the receiver, namely a memento object." diff --git a/source/Magritte-Model.package/Object.extension/instance/readUsing..st b/source/Magritte-Model.package/Object.extension/instance/readUsing..st index 16daf0e1..8b0c452e 100644 --- a/source/Magritte-Model.package/Object.extension/instance/readUsing..st +++ b/source/Magritte-Model.package/Object.extension/instance/readUsing..st @@ -1,4 +1,4 @@ -*magritte-model-model +*Magritte-Model readUsing: aDescription "Dispatch the read-access to the receiver using the accessor of aDescription." diff --git a/source/Magritte-Model.package/Object.extension/instance/uniqueActionSelectors.st b/source/Magritte-Model.package/Object.extension/instance/uniqueActionSelectors.st index 5282052f..97fb4991 100644 --- a/source/Magritte-Model.package/Object.extension/instance/uniqueActionSelectors.st +++ b/source/Magritte-Model.package/Object.extension/instance/uniqueActionSelectors.st @@ -1,4 +1,4 @@ -*magritte-model-actions +*Magritte-Model uniqueActionSelectors | descriptionPragmas selectors | diff --git a/source/Magritte-Model.package/Object.extension/instance/write.using..st b/source/Magritte-Model.package/Object.extension/instance/write.using..st index 0e7ee487..6c903c2c 100644 --- a/source/Magritte-Model.package/Object.extension/instance/write.using..st +++ b/source/Magritte-Model.package/Object.extension/instance/write.using..st @@ -1,4 +1,4 @@ -*magritte-model-model +*Magritte-Model write: anObject using: aDescription "Dispatch the write-access to the receiver of anObject using the accessor of aDescription." diff --git a/source/Magritte-Model.package/String.extension/instance/matches..st b/source/Magritte-Model.package/String.extension/instance/matches..st index 94b31eda..86a69a4f 100644 --- a/source/Magritte-Model.package/String.extension/instance/matches..st +++ b/source/Magritte-Model.package/String.extension/instance/matches..st @@ -1,4 +1,4 @@ -*magritte-model-testing +*Magritte-Model matches: aString aString isEmpty ifTrue: [ ^ true ]. ^ (aString includesAnyOf: '*#') diff --git a/source/Magritte-Model.package/Symbol.extension/instance/optionFor.ifPresent..st b/source/Magritte-Model.package/Symbol.extension/instance/optionFor.ifPresent..st index c0fd7ac1..018d02dd 100644 --- a/source/Magritte-Model.package/Symbol.extension/instance/optionFor.ifPresent..st +++ b/source/Magritte-Model.package/Symbol.extension/instance/optionFor.ifPresent..st @@ -1,3 +1,3 @@ -*magritte-model-description +*Magritte-Model optionFor: anObject ifPresent: aBlock aBlock value: (anObject perform: self) \ No newline at end of file diff --git a/source/Magritte-Model.package/UndefinedObject.extension/instance/asAccessor.st b/source/Magritte-Model.package/UndefinedObject.extension/instance/asAccessor.st index f706af64..156e8216 100644 --- a/source/Magritte-Model.package/UndefinedObject.extension/instance/asAccessor.st +++ b/source/Magritte-Model.package/UndefinedObject.extension/instance/asAccessor.st @@ -1,3 +1,3 @@ -*magritte-model-converting +*Magritte-Model asAccessor ^ MANullAccessor new \ No newline at end of file diff --git a/source/Magritte-Model.package/UndefinedObject.extension/instance/label.st b/source/Magritte-Model.package/UndefinedObject.extension/instance/label.st index 3c5ff603..a6d9c1a0 100644 --- a/source/Magritte-Model.package/UndefinedObject.extension/instance/label.st +++ b/source/Magritte-Model.package/UndefinedObject.extension/instance/label.st @@ -1,3 +1,3 @@ -*magritte-model-accessing +*Magritte-Model label ^ 'n/a' \ No newline at end of file diff --git a/source/Magritte-Model.package/UndefinedObject.extension/instance/magritteDescription.st b/source/Magritte-Model.package/UndefinedObject.extension/instance/magritteDescription.st index 59b2c080..6b610397 100644 --- a/source/Magritte-Model.package/UndefinedObject.extension/instance/magritteDescription.st +++ b/source/Magritte-Model.package/UndefinedObject.extension/instance/magritteDescription.st @@ -1,3 +1,3 @@ -*magritte-model-accessing +*Magritte-Model magritteDescription ^ MAContainer new \ No newline at end of file diff --git a/source/Magritte-Morph.package/MAContainer.extension/class/defaultMorphClasses.st b/source/Magritte-Morph.package/MAContainer.extension/class/defaultMorphClasses.st index 3d884b2c..4c39021a 100644 --- a/source/Magritte-Morph.package/MAContainer.extension/class/defaultMorphClasses.st +++ b/source/Magritte-Morph.package/MAContainer.extension/class/defaultMorphClasses.st @@ -1,3 +1,3 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphClasses ^ Array with: MAContainerMorph \ No newline at end of file diff --git a/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphClass.st b/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphClass.st index 4b172169..1f6194a0 100644 --- a/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphClass.st +++ b/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphClass.st @@ -1,4 +1,4 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphClass ^ self defaultMorphClasses notEmpty ifTrue: [ self defaultMorphClasses first ] \ No newline at end of file diff --git a/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphClasses.st b/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphClasses.st index b9ad0649..fd052dbc 100644 --- a/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphClasses.st +++ b/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphClasses.st @@ -1,3 +1,3 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphClasses ^ Array new \ No newline at end of file diff --git a/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphColor.st b/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphColor.st index d1f023ca..4e058eef 100644 --- a/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphColor.st +++ b/source/Magritte-Morph.package/MADescription.extension/class/defaultMorphColor.st @@ -1,3 +1,3 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphColor ^ Color white \ No newline at end of file diff --git a/source/Magritte-Morph.package/MADescription.extension/instance/morphClass..st b/source/Magritte-Morph.package/MADescription.extension/instance/morphClass..st index 6a0577e7..1f8ff2de 100644 --- a/source/Magritte-Morph.package/MADescription.extension/instance/morphClass..st +++ b/source/Magritte-Morph.package/MADescription.extension/instance/morphClass..st @@ -1,3 +1,3 @@ -*magritte-morph-accessing +*Magritte-Morph morphClass: aClass ^ self propertyAt: #morphClass put: aClass \ No newline at end of file diff --git a/source/Magritte-Morph.package/MADescription.extension/instance/morphClass.st b/source/Magritte-Morph.package/MADescription.extension/instance/morphClass.st index 18661153..1aed9343 100644 --- a/source/Magritte-Morph.package/MADescription.extension/instance/morphClass.st +++ b/source/Magritte-Morph.package/MADescription.extension/instance/morphClass.st @@ -1,3 +1,3 @@ -*magritte-morph-accessing +*Magritte-Morph morphClass ^ self propertyAt: #morphClass ifAbsent: [ self class defaultMorphClass ] \ No newline at end of file diff --git a/source/Magritte-Morph.package/MADescription.extension/instance/morphColor..st b/source/Magritte-Morph.package/MADescription.extension/instance/morphColor..st index 2aa3eadb..191db825 100644 --- a/source/Magritte-Morph.package/MADescription.extension/instance/morphColor..st +++ b/source/Magritte-Morph.package/MADescription.extension/instance/morphColor..st @@ -1,3 +1,3 @@ -*magritte-morph-accessing +*Magritte-Morph morphColor: aColor ^ self propertyAt: #morphColor put: aColor \ No newline at end of file diff --git a/source/Magritte-Morph.package/MADescription.extension/instance/morphColor.st b/source/Magritte-Morph.package/MADescription.extension/instance/morphColor.st index ed13bbf8..26ba7de0 100644 --- a/source/Magritte-Morph.package/MADescription.extension/instance/morphColor.st +++ b/source/Magritte-Morph.package/MADescription.extension/instance/morphColor.st @@ -1,3 +1,3 @@ -*magritte-morph-accessing +*Magritte-Morph morphColor ^ self propertyAt: #morphColor ifAbsent: [ self class defaultMorphColor ] \ No newline at end of file diff --git a/source/Magritte-Morph.package/MADirectoryDescription.extension/class/defaultMorphClasses.st b/source/Magritte-Morph.package/MADirectoryDescription.extension/class/defaultMorphClasses.st index b59b57d3..c6d7c521 100644 --- a/source/Magritte-Morph.package/MADirectoryDescription.extension/class/defaultMorphClasses.st +++ b/source/Magritte-Morph.package/MADirectoryDescription.extension/class/defaultMorphClasses.st @@ -1,3 +1,3 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphClasses ^ Array with: MADirectoryMorph \ No newline at end of file diff --git a/source/Magritte-Morph.package/MAElementDescription.extension/class/defaultMorphClasses.st b/source/Magritte-Morph.package/MAElementDescription.extension/class/defaultMorphClasses.st index 657520b3..f64da1fb 100644 --- a/source/Magritte-Morph.package/MAElementDescription.extension/class/defaultMorphClasses.st +++ b/source/Magritte-Morph.package/MAElementDescription.extension/class/defaultMorphClasses.st @@ -1,3 +1,3 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphClasses ^ Array with: MATextMorph \ No newline at end of file diff --git a/source/Magritte-Morph.package/MAFileDescription.extension/class/defaultMorphClasses.st b/source/Magritte-Morph.package/MAFileDescription.extension/class/defaultMorphClasses.st index c23d3278..3e31dc05 100644 --- a/source/Magritte-Morph.package/MAFileDescription.extension/class/defaultMorphClasses.st +++ b/source/Magritte-Morph.package/MAFileDescription.extension/class/defaultMorphClasses.st @@ -1,3 +1,3 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphClasses ^ Array with: MAFileMorph \ No newline at end of file diff --git a/source/Magritte-Morph.package/MAMemoDescription.extension/class/defaultMorphClasses.st b/source/Magritte-Morph.package/MAMemoDescription.extension/class/defaultMorphClasses.st index e23a80d2..f09279b6 100644 --- a/source/Magritte-Morph.package/MAMemoDescription.extension/class/defaultMorphClasses.st +++ b/source/Magritte-Morph.package/MAMemoDescription.extension/class/defaultMorphClasses.st @@ -1,3 +1,3 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphClasses ^ Array with: MAMemoMorph \ No newline at end of file diff --git a/source/Magritte-Morph.package/MAMultipleOptionDescription.extension/class/defaultMorphClasses.st b/source/Magritte-Morph.package/MAMultipleOptionDescription.extension/class/defaultMorphClasses.st index bcbbce8c..e0a3a57c 100644 --- a/source/Magritte-Morph.package/MAMultipleOptionDescription.extension/class/defaultMorphClasses.st +++ b/source/Magritte-Morph.package/MAMultipleOptionDescription.extension/class/defaultMorphClasses.st @@ -1,3 +1,3 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphClasses ^ Array with: MAMultiSelectListMorph \ No newline at end of file diff --git a/source/Magritte-Morph.package/MASingleOptionDescription.extension/class/defaultMorphClasses.st b/source/Magritte-Morph.package/MASingleOptionDescription.extension/class/defaultMorphClasses.st index 03851971..a63fe5c4 100644 --- a/source/Magritte-Morph.package/MASingleOptionDescription.extension/class/defaultMorphClasses.st +++ b/source/Magritte-Morph.package/MASingleOptionDescription.extension/class/defaultMorphClasses.st @@ -1,4 +1,4 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphClasses ^ Array with: MASingleSelectListMorph diff --git a/source/Magritte-Morph.package/MAToOneRelationDescription.extension/class/defaultMorphClasses.st b/source/Magritte-Morph.package/MAToOneRelationDescription.extension/class/defaultMorphClasses.st index 8871ef1c..a0967130 100644 --- a/source/Magritte-Morph.package/MAToOneRelationDescription.extension/class/defaultMorphClasses.st +++ b/source/Magritte-Morph.package/MAToOneRelationDescription.extension/class/defaultMorphClasses.st @@ -1,3 +1,3 @@ -*magritte-morph-defaults +*Magritte-Morph defaultMorphClasses ^ Array with: MAExternalEditorMorph with: MAInternalEditorMorph \ No newline at end of file diff --git a/source/Magritte-Morph.package/Object.extension/instance/asMagritteMorph.st b/source/Magritte-Morph.package/Object.extension/instance/asMagritteMorph.st index 3d85f888..8817f6c5 100644 --- a/source/Magritte-Morph.package/Object.extension/instance/asMagritteMorph.st +++ b/source/Magritte-Morph.package/Object.extension/instance/asMagritteMorph.st @@ -1,3 +1,3 @@ -*magritte-morph-converting +*Magritte-Morph asMagritteMorph ^ self magritteDescription asMorphOn: self \ No newline at end of file diff --git a/source/Magritte-Morph.package/monticello.meta/categories.st b/source/Magritte-Morph.package/monticello.meta/categories.st index ae3be093..56648703 100644 --- a/source/Magritte-Morph.package/monticello.meta/categories.st +++ b/source/Magritte-Morph.package/monticello.meta/categories.st @@ -1,4 +1,4 @@ SystemOrganization addCategory: #'Magritte-Morph'! -SystemOrganization addCategory: 'Magritte-Morph-Model'! -SystemOrganization addCategory: 'Magritte-Morph-Morphs'! -SystemOrganization addCategory: 'Magritte-Morph-Report'! +SystemOrganization addCategory: #'Magritte-Morph-Model'! +SystemOrganization addCategory: #'Magritte-Morph-Morphs'! +SystemOrganization addCategory: #'Magritte-Morph-Report'!