Moved to Tonel 3

OpenPonk · Jun 18, 2024 · 8c40fcd · 8c40fcd
1 parent 72a367f
commit 8c40fcd
Show file tree

Hide file tree

Showing 44 changed files with 538 additions and 473 deletions.
diff --git a/repository/BaselineOfOpenPonk/BaselineOfOpenPonk.class.st b/repository/BaselineOfOpenPonk/BaselineOfOpenPonk.class.st
@@ -3,12 +3,13 @@ I am baseline for the core and all-in-one dynacase.
 https://dynacase.github.io/
 "
 Class {
-	#name : #BaselineOfOpenPonk,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfOpenPonk
+	#name : 'BaselineOfOpenPonk',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfOpenPonk',
+	#package : 'BaselineOfOpenPonk'
 }
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfOpenPonk >> baseline: spec [
 
 	<baseline>
@@ -30,7 +31,7 @@ BaselineOfOpenPonk >> baseline: spec [
 			with: #( 'OpenPonk-Core' 'OpenPonk-Morphic' 'OpenPonk-Spec' ) ]
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfOpenPonk >> externalProjectsBaseline: spec [
 
 	spec
@@ -63,7 +64,7 @@ BaselineOfOpenPonk >> externalProjectsBaseline: spec [
 		spec repository: 'github://pharo-graphics/RoassalExporters:v1.02' ]
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfOpenPonk >> internalProjectsBaseline: spec [
 
 	spec baseline: 'NewTools' with: [ 
@@ -76,7 +77,7 @@ BaselineOfOpenPonk >> internalProjectsBaseline: spec [
 		spec repository: 'github://openponk/synchronized-links/repository' ]
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfOpenPonk >> removeExplicitRequirementsFromPackage: aPackageName [
 
 	| regExp packages |
@@ -94,7 +95,7 @@ BaselineOfOpenPonk >> removeExplicitRequirementsFromPackage: aPackageName [
 				thenDo: #removeFromSystem ] ]
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfOpenPonk >> removePackage: aPackageName [
 
 	| regExp packages |
@@ -106,7 +107,7 @@ BaselineOfOpenPonk >> removePackage: aPackageName [
 		each removeFromSystem ]
 ]
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfOpenPonk >> removeRoassalExplicitRequirements [
 
 	#( Roassal Numeric RTree OpenPonk OP OntoUML ) do: [ :eachName |

diff --git a/repository/BaselineOfOpenPonk/package.st b/repository/BaselineOfOpenPonk/package.st
@@ -1 +1 @@
-Package { #name : #BaselineOfOpenPonk }
+Package { #name : 'BaselineOfOpenPonk' }
diff --git a/repository/DynaCASE-Layouting/DCGTAbstractVertexOrdering.class.st b/repository/DynaCASE-Layouting/DCGTAbstractVertexOrdering.class.st
@@ -1,5 +1,7 @@
 Class {
-	#name : #DCGTAbstractVertexOrdering,
-	#superclass : #Object,
-	#category : 'DynaCASE-Layouting-DGT'
+	#name : 'DCGTAbstractVertexOrdering',
+	#superclass : 'Object',
+	#category : 'DynaCASE-Layouting-DGT',
+	#package : 'DynaCASE-Layouting',
+	#tag : 'DGT'
 }
diff --git a/repository/DynaCASE-Layouting/DCGTEdge.class.st b/repository/DynaCASE-Layouting/DCGTEdge.class.st
@@ -1,28 +1,30 @@
 Class {
-	#name : #DCGTEdge,
-	#superclass : #Object,
+	#name : 'DCGTEdge',
+	#superclass : 'Object',
 	#instVars : [
 		'from',
 		'to'
 	],
-	#category : 'DynaCASE-Layouting-DGT'
+	#category : 'DynaCASE-Layouting-DGT',
+	#package : 'DynaCASE-Layouting',
+	#tag : 'DGT'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 DCGTEdge class >> from: aSource to: aTarget [
 	^ self new
 		from: aSource;
 		to: aTarget;
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DCGTEdge >> from [
 	<DCAssociation: ''>
 	^ from
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DCGTEdge >> from: aDCGTNode [
 	|oldRef|
 	from = aDCGTNode ifTrue: [ ^ self ].
@@ -32,7 +34,7 @@ DCGTEdge >> from: aDCGTNode [
 	from ifNotNil: [ from addEdge: self ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : 'as yet unclassified' }
 DCGTEdge >> printOn: aStream [
 	aStream nextPutAll: '{ '.
 	self from printOn: aStream.
@@ -41,13 +43,13 @@ DCGTEdge >> printOn: aStream [
 	aStream nextPutAll: ' }'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DCGTEdge >> to [
 	<DCAssociation: ''>
 	^ to
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DCGTEdge >> to: aDCGTNode [
 	|oldRef|
 	to = aDCGTNode ifTrue: [ ^ self ].

diff --git a/repository/DynaCASE-Layouting/DCGTGraph.class.st b/repository/DynaCASE-Layouting/DCGTGraph.class.st
@@ -1,14 +1,16 @@
 Class {
-	#name : #DCGTGraph,
-	#superclass : #Object,
+	#name : 'DCGTGraph',
+	#superclass : 'Object',
 	#instVars : [
 		'nodes',
 		'edges'
 	],
-	#category : 'DynaCASE-Layouting-DGT'
+	#category : 'DynaCASE-Layouting-DGT',
+	#package : 'DynaCASE-Layouting',
+	#tag : 'DGT'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : 'as yet unclassified' }
 DCGTGraph class >> graphModel [
 	'
 DCGTGraph { }
@@ -25,53 +27,53 @@ DCGTGraph --> edges DCGTEdge[*];
 ' asClassDiagram open
 ]
 
-{ #category : #'adding/removing' }
+{ #category : 'adding/removing' }
 DCGTGraph >> addEdge: aDCGTEdge [
 	(edges includes: aDCGTEdge) ifTrue: [ ^ self ].
 	edges add: aDCGTEdge
 ]
 
-{ #category : #'adding/removing' }
+{ #category : 'adding/removing' }
 DCGTGraph >> addNode: aDCGTNode [
 	(nodes includes: aDCGTNode) ifTrue: [ ^ self ].
 	nodes add: aDCGTNode
 ]
 
-{ #category : #geometry }
+{ #category : 'geometry' }
 DCGTGraph >> degreeFor: aVertex [
 	^ (self edgesFor: aVertex) size
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DCGTGraph >> edges [
 	<DCAssociation: ''>
 	^ edges
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DCGTGraph >> edges: aCollection [
 	edges := aCollection
 ]
 
-{ #category : #geometry }
+{ #category : 'geometry' }
 DCGTGraph >> edgesFor: aVertex [
 	^ self edges select: [ :each | each from = aVertex | (each to = aVertex) ]
 ]
 
-{ #category : #geometry }
+{ #category : 'geometry' }
 DCGTGraph >> edgesForAll: aVertexSet [
 	^ self edges
 		select: [ :each | (aVertexSet includes: each from) and: [ aVertexSet includes: each to ] ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 DCGTGraph >> initialize [
 	super initialize.
 	nodes := OrderedCollection new.
 	edges := OrderedCollection new
 ]
 
-{ #category : #geometry }
+{ #category : 'geometry' }
 DCGTGraph >> neighborsOf: aVertex [
 	^ (self edgesFor: aVertex)
 		collect: [ :each | 
@@ -80,30 +82,30 @@ DCGTGraph >> neighborsOf: aVertex [
 				ifFalse: [ each to ] ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DCGTGraph >> nodes [
 	<DCAssociation: ''>
 	^ nodes
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DCGTGraph >> nodes: aCollection [
 	nodes := aCollection
 ]
 
-{ #category : #'adding/removing' }
+{ #category : 'adding/removing' }
 DCGTGraph >> removeEdge: aDCGTEdge [
 	(edges includes: aDCGTEdge) ifFalse: [ ^ self ].
 	edges remove: aDCGTEdge
 ]
 
-{ #category : #'adding/removing' }
+{ #category : 'adding/removing' }
 DCGTGraph >> removeNode: aDCGTNode [
 	(nodes includes: aDCGTNode) ifFalse: [ ^ self ].
 	nodes remove: aDCGTNode
 ]
 
-{ #category : #visualization }
+{ #category : 'visualization' }
 DCGTGraph >> renderIn: aView [
 	| b |
 	b := RTMondrian new.
@@ -123,26 +125,26 @@ DCGTGraph >> renderIn: aView [
 	^ b view
 ]
 
-{ #category : #geometry }
+{ #category : 'geometry' }
 DCGTGraph >> vertexInducedBy: aVertexSet [
 	^ self class new
 		nodes: aVertexSet;
 		edges: (self edgesForAll: aVertexSet);
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 DCGTGraph >> vertices [
 	<DCAssociation: ''>
 	^ self nodes
 ]
 
-{ #category : #visualization }
+{ #category : 'visualization' }
 DCGTGraph >> visualization [
 	^ self renderIn: RTView new
 ]
 
-{ #category : #visualization }
+{ #category : 'visualization' }
 DCGTGraph >> visualize [
 	self visualization open
 ]