Updates for Pharo 12

OpenPonk · May 7, 2024 · 3af5ca9 · 3af5ca9
1 parent 576cdec
commit 3af5ca9
Show file tree

Hide file tree

Showing 283 changed files with 3,480 additions and 2,919 deletions.
diff --git a/repository/OpenPonk-Core/DoubleLink.extension.st b/repository/OpenPonk-Core/DoubleLink.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #DoubleLink }
+Extension { #name : 'DoubleLink' }
 
-{ #category : #'*OpenPonk-Core-accessing' }
+{ #category : '*OpenPonk-Core-accessing' }
 DoubleLink >> addPredecessor: aLink [
 	| oldPredeccessor |
 	oldPredeccessor := self previousLink.
@@ -10,7 +10,7 @@ DoubleLink >> addPredecessor: aLink [
 	self previousLink: aLink
 ]
 
-{ #category : #'*OpenPonk-Core-accessing' }
+{ #category : '*OpenPonk-Core-accessing' }
 DoubleLink >> addSuccessor: aLink [
 	| oldSuccessor |
 	oldSuccessor := self nextLink.
@@ -20,17 +20,17 @@ DoubleLink >> addSuccessor: aLink [
 	self nextLink: aLink
 ]
 
-{ #category : #'*OpenPonk-Core-accessing' }
+{ #category : '*OpenPonk-Core-accessing' }
 DoubleLink >> next [
 	^ self nextLink
 ]
 
-{ #category : #'*OpenPonk-Core-accessing' }
+{ #category : '*OpenPonk-Core-accessing' }
 DoubleLink >> previous [
 	^ self previousLink
 ]
 
-{ #category : #'*OpenPonk-Core-accessing' }
+{ #category : '*OpenPonk-Core-accessing' }
 DoubleLink >> removeLink [
 	| predecessor successor |
 	predecessor := self previousLink.

diff --git a/repository/OpenPonk-Core/MAContainer.extension.st b/repository/OpenPonk-Core/MAContainer.extension.st
@@ -1,12 +1,12 @@
-Extension { #name : #MAContainer }
+Extension { #name : 'MAContainer' }
 
-{ #category : #'*OpenPonk-Core' }
+{ #category : '*OpenPonk-Core' }
 MAContainer >> definingContext [
 
 	^ self propertyAt: #definingContext ifAbsent: [ nil ]
 ]
 
-{ #category : #'*OpenPonk-Core' }
+{ #category : '*OpenPonk-Core' }
 MAContainer >> definingContext: anMADefiningContext [
 
 	^ self propertyAt: #definingContext  put: anMADefiningContext

diff --git a/repository/OpenPonk-Core/ManifestOpenPonkCore.class.st b/repository/OpenPonk-Core/ManifestOpenPonkCore.class.st
@@ -1,15 +1,17 @@
 Class {
-	#name : #ManifestOpenPonkCore,
-	#superclass : #PackageManifest,
-	#category : #'OpenPonk-Core-Manifest'
+	#name : 'ManifestOpenPonkCore',
+	#superclass : 'PackageManifest',
+	#category : 'OpenPonk-Core-Manifest',
+	#package : 'OpenPonk-Core',
+	#tag : 'Manifest'
 }
 
-{ #category : #'code-critics' }
+{ #category : 'code-critics' }
 ManifestOpenPonkCore class >> ruleRTInvocationSequenceRuleV1FalsePositive [
 	^ #(#(#(#RGMethodDefinition #(#OPTRelationshipWithPathPointsController #layout #false)) #'2021-07-21T17:15:27.877427+02:00') #(#(#RGMethodDefinition #(#OPTRelationshipWithPathPointsController #layout: #false)) #'2021-07-21T17:17:28.272427+02:00') )
 ]
 
-{ #category : #'code-critics' }
+{ #category : 'code-critics' }
 ManifestOpenPonkCore class >> ruleReTestClassNotInPackageWithTestEndingNameV1FalsePositive [
 	^ #(#(#(#RGPackageDefinition #(#'OpenPonk-Core')) #'2020-05-27T10:56:37.652665+02:00') )
 ]
diff --git a/repository/OpenPonk-Core/NeoJSONObjectMapping.extension.st b/repository/OpenPonk-Core/NeoJSONObjectMapping.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #NeoJSONObjectMapping }
+Extension { #name : 'NeoJSONObjectMapping' }
 
-{ #category : #'*OpenPonk-Core' }
+{ #category : '*OpenPonk-Core' }
 NeoJSONObjectMapping >> sortProperties [
 	properties := properties sorted: #propertyName ascending
 ]
diff --git a/repository/OpenPonk-Core/OPAbstractEdgeTest.class.st b/repository/OpenPonk-Core/OPAbstractEdgeTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #OPAbstractEdgeTest,
-	#superclass : #OPAbstractShapeTest,
-	#category : #'OpenPonk-Core-Tests'
+	#name : 'OPAbstractEdgeTest',
+	#superclass : 'OPAbstractShapeTest',
+	#category : 'OpenPonk-Core-Tests',
+	#package : 'OpenPonk-Core',
+	#tag : 'Tests'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 OPAbstractEdgeTest >> testRenderSimplifiedForController [
 
 	| diagramController controller connectedController rsBox connectedShape |

diff --git a/repository/OpenPonk-Core/OPAbstractLabelTest.class.st b/repository/OpenPonk-Core/OPAbstractLabelTest.class.st
@@ -1,15 +1,17 @@
 Class {
-	#name : #OPAbstractLabelTest,
-	#superclass : #OPAbstractShapeTest,
-	#category : #'OpenPonk-Core-Tests'
+	#name : 'OPAbstractLabelTest',
+	#superclass : 'OPAbstractShapeTest',
+	#category : 'OpenPonk-Core-Tests',
+	#package : 'OpenPonk-Core',
+	#tag : 'Tests'
 }
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 OPAbstractLabelTest >> shapeClass [
 	^ OPTestLabel
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 OPAbstractLabelTest >> testRoassalShape [
 
 	| roassalShape |
@@ -20,7 +22,7 @@ OPAbstractLabelTest >> testRoassalShape [
 	self assert: roassalShape text equals: 'some text'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 OPAbstractLabelTest >> testRoassalShapeEmphasis [
 
 	| roassalShape |

diff --git a/repository/OpenPonk-Core/OPAbstractShapeTest.class.st b/repository/OpenPonk-Core/OPAbstractShapeTest.class.st
@@ -1,37 +1,39 @@
 Class {
-	#name : #OPAbstractShapeTest,
-	#superclass : #TestCase,
+	#name : 'OPAbstractShapeTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'canvas',
 		'shape'
 	],
-	#category : #'OpenPonk-Core-Tests'
+	#category : 'OpenPonk-Core-Tests',
+	#package : 'OpenPonk-Core',
+	#tag : 'Tests'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 OPAbstractShapeTest class >> isAbstract [
 	^ self name includesSubstring: 'Abstract'
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 OPAbstractShapeTest >> newShapeInstance [
 	^ self shapeClass new
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 OPAbstractShapeTest >> setUp [
 
 	super setUp.
 	shape := self newShapeInstance.
 	canvas := RSCanvas new
 ]
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 OPAbstractShapeTest >> shapeClass [
 	^ self subclassResponsibility
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 OPAbstractShapeTest >> testRenderSimplifiedForController [
 
 	| diagramController controller |

diff --git a/repository/OpenPonk-Core/OPAllFiguresDeselected.class.st b/repository/OpenPonk-Core/OPAllFiguresDeselected.class.st
@@ -1,5 +1,7 @@
 Class {
-	#name : #OPAllFiguresDeselected,
-	#superclass : #Announcement,
-	#category : #'OpenPonk-Core-Controllers'
+	#name : 'OPAllFiguresDeselected',
+	#superclass : 'Announcement',
+	#category : 'OpenPonk-Core-Controllers',
+	#package : 'OpenPonk-Core',
+	#tag : 'Controllers'
 }
diff --git a/repository/OpenPonk-Core/OPAutosaveManager.class.st b/repository/OpenPonk-Core/OPAutosaveManager.class.st
@@ -6,60 +6,62 @@ I manage autosaving and undo/redo operations of a single controller.
 As I manage only a single controller, do not rely on this for cross-model operations (such as instance modeling), as changes in the ""linked-to"" model can make your model invalid if you undo/redo/recover only the instance.
 "
 Class {
-	#name : #OPAutosaveManager,
-	#superclass : #Object,
+	#name : 'OPAutosaveManager',
+	#superclass : 'Object',
 	#instVars : [
 		'history',
 		'current',
 		'future',
 		'serializer'
 	],
-	#category : #'OpenPonk-Core-Persistence'
+	#category : 'OpenPonk-Core-Persistence',
+	#package : 'OpenPonk-Core',
+	#tag : 'Persistence'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 OPAutosaveManager class >> on: aSerializer [
 	^ self new
 		serializer: aSerializer;
 		yourself
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 OPAutosaveManager >> autosaveFileFor: aUUID [
 	self autosavePath ensureCreateDirectory.
 	^ self autosavePath / aUUID asString , 'ston'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPAutosaveManager >> autosavePath [
 	^ FileLocator imageDirectory asFileReference / 'autosave'
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 OPAutosaveManager >> futureIsEmpty [
 	^ future isEmpty
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 OPAutosaveManager >> historyIsEmpty [
 	^ history isEmpty
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 OPAutosaveManager >> initialize [
 	super initialize.
 	history := OrderedCollection new.
 	future := OrderedCollection new
 ]
 
-{ #category : #'save/load' }
+{ #category : 'save/load' }
 OPAutosaveManager >> loadCurrent [
 	current ifNil: [ ^ nil ].
 	^ current
 		readStreamDo: [ :stream | self serializer materializeFrom: stream ]
 ]
 
-{ #category : #'save/load' }
+{ #category : 'save/load' }
 OPAutosaveManager >> loadNext [
 	future ifEmpty: [ ^ nil ].
 	history addLast: current.
@@ -68,7 +70,7 @@ OPAutosaveManager >> loadNext [
 		readStreamDo: [ :stream | self serializer materializeFrom: stream ]
 ]
 
-{ #category : #'save/load' }
+{ #category : 'save/load' }
 OPAutosaveManager >> loadPrevious [
 	history ifEmpty: [ ^ nil ].
 	future addLast: current.
@@ -77,7 +79,7 @@ OPAutosaveManager >> loadPrevious [
 		readStreamDo: [ :stream | self serializer materializeFrom: stream ]
 ]
 
-{ #category : #'save/load' }
+{ #category : 'save/load' }
 OPAutosaveManager >> saveState: aMemento [
 	future reset.
 	current ifNotNil: [ history addLast: current ].
@@ -91,12 +93,12 @@ OPAutosaveManager >> saveState: aMemento [
 				nextPutAll: current ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPAutosaveManager >> serializer [
 	^ serializer
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPAutosaveManager >> serializer: aSerializer [
 	serializer := aSerializer
 ]
diff --git a/repository/OpenPonk-Core/OPBaseControllerTest.class.st b/repository/OpenPonk-Core/OPBaseControllerTest.class.st
@@ -2,48 +2,50 @@
 I provide basic scaffolding and utility functions to ease the testing of controllers.
 "
 Class {
-	#name : #OPBaseControllerTest,
-	#superclass : #TestCase,
+	#name : 'OPBaseControllerTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'controller',
 		'diagramController',
 		'model'
 	],
-	#category : #'OpenPonk-Core-Controllers - Tests'
+	#category : 'OpenPonk-Core-Controllers - Tests',
+	#package : 'OpenPonk-Core',
+	#tag : 'Controllers - Tests'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 OPBaseControllerTest class >> isAbstract [
 	^ self = OPBaseControllerTest
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPBaseControllerTest >> controllerClass [
 	^ self subclassResponsibility
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPBaseControllerTest >> diagramControllerClass [
 	^ self subclassResponsibility
 ]
 
-{ #category : #construction }
+{ #category : 'construction' }
 OPBaseControllerTest >> diagramElementClass [
 
 	^ OPTestDiagramElement
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPBaseControllerTest >> diagramModelClass [
 	^ self subclassResponsibility
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPBaseControllerTest >> modelClass [
 	^ self subclassResponsibility
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 OPBaseControllerTest >> newModel [
 
 	| aModel |
@@ -53,7 +55,7 @@ OPBaseControllerTest >> newModel [
 	^ aModel
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 OPBaseControllerTest >> setUp [
 
 	super setUp.
@@ -66,20 +68,20 @@ OPBaseControllerTest >> setUp [
 	model := self newModel
 ]
 
-{ #category : #support }
+{ #category : 'support' }
 OPBaseControllerTest >> stubRefresh [
 	controller stub figure willReturn: Mock new.
 	controller stub refreshFigure willReturn: controller
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 OPBaseControllerTest >> testIsSupported [
 	self diagramControllerClass = self controllerClass
 		ifTrue: [ ^ self ].
 	self assert: (diagramController hasSupportForModel: model)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 OPBaseControllerTest >> testModelClass [
 	self diagramControllerClass = self controllerClass
 		ifTrue: [ ^ self ].