Moved to Tonel 3

OpenPonk · Jun 18, 2024 · f5206fb · f5206fb
1 parent 0b476b9
commit f5206fb
Show file tree

Hide file tree

Showing 66 changed files with 799 additions and 680 deletions.
diff --git a/repository/BaselineOfBormEditor/BaselineOfBormEditor.class.st b/repository/BaselineOfBormEditor/BaselineOfBormEditor.class.st
@@ -1,10 +1,11 @@
 Class {
-	#name : #BaselineOfBormEditor,
-	#superclass : #BaselineOf,
-	#category : #BaselineOfBormEditor
+	#name : 'BaselineOfBormEditor',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfBormEditor',
+	#package : 'BaselineOfBormEditor'
 }
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfBormEditor >> baseline: spec [
 
 	<baseline>

diff --git a/repository/BaselineOfBormEditor/package.st b/repository/BaselineOfBormEditor/package.st
@@ -1 +1 @@
-Package { #name : #BaselineOfBormEditor }
+Package { #name : 'BaselineOfBormEditor' }
diff --git a/repository/Borm-OpenCabe-Importer/BormCabeDiagramVisitor.class.st b/repository/Borm-OpenCabe-Importer/BormCabeDiagramVisitor.class.st
@@ -1,43 +1,45 @@
 Class {
-	#name : #BormCabeDiagramVisitor,
-	#superclass : #Object,
+	#name : 'BormCabeDiagramVisitor',
+	#superclass : 'Object',
 	#instVars : [
 		'entityNames',
 		'entities',
 		'diagram',
 		'document'
 	],
-	#category : 'Borm-OpenCabe-Importer-Importer'
+	#category : 'Borm-OpenCabe-Importer-Importer',
+	#package : 'Borm-OpenCabe-Importer',
+	#tag : 'Importer'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BormCabeDiagramVisitor >> diagram [
 	^ diagram
 ]
 
-{ #category : #visitor }
+{ #category : 'visitor' }
 BormCabeDiagramVisitor >> ensureEntityFor: aXMLElement [
 	(entities includesKey: (aXMLElement attributeAt: 'ID'))
 		ifFalse: [ self visit: aXMLElement ].
 	^ entities at: (aXMLElement attributeAt: 'ID')
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BormCabeDiagramVisitor >> entities: aDictionary [
 	entityNames := aDictionary
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BormCabeDiagramVisitor >> entityFor: aXMLElement [
 	^ self resolve: (aXMLElement xPath: 'entity/@href') stringValue
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BormCabeDiagramVisitor >> entityNameFor: aXMLElement [
 	^ (self entityFor: aXMLElement) at: #name
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : 'as yet unclassified' }
 BormCabeDiagramVisitor >> parseFragment: aString [
 	| rx parts |
 	rx := '//?([^/])+' asRegex.
@@ -50,7 +52,7 @@ BormCabeDiagramVisitor >> parseFragment: aString [
 			(parts second asNumber + 1)} ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : 'as yet unclassified' }
 BormCabeDiagramVisitor >> resolve: aString [
 	| uri fragment selector position |
 	uri := XMLURI fromString: aString.
@@ -64,7 +66,7 @@ BormCabeDiagramVisitor >> resolve: aString [
 	^ self resolveFragment: aString
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : 'as yet unclassified' }
 BormCabeDiagramVisitor >> resolveFragment: aString [
 	| fragment first element |
 	fragment := self parseFragment: aString.
@@ -74,7 +76,7 @@ BormCabeDiagramVisitor >> resolveFragment: aString [
 	^ element
 ]
 
-{ #category : #visitor }
+{ #category : 'visitor' }
 BormCabeDiagramVisitor >> visit: aXMLElement [
 	| selector |
 	(aXMLElement includesAttribute: 'xsi:type')
@@ -86,15 +88,15 @@ BormCabeDiagramVisitor >> visit: aXMLElement [
 		ifAbsent: [ self perform: selector asSymbol with: aXMLElement ]
 ]
 
-{ #category : #visitor }
+{ #category : 'visitor' }
 BormCabeDiagramVisitor >> visitActivity: aXMLElement [
 	| activity |
 	activity := BormActivity named: (self entityNameFor: aXMLElement).
 	entities at: (aXMLElement attributeAt: 'ID') put: activity.
 	(self ensureEntityFor: aXMLElement parent) add: activity
 ]
 
-{ #category : #visitor }
+{ #category : 'visitor' }
 BormCabeDiagramVisitor >> visitCommunication: aXMLElement [
 	| communication |
 	communication := BormFactory
@@ -105,7 +107,7 @@ BormCabeDiagramVisitor >> visitCommunication: aXMLElement [
 	entities at: aXMLElement put: communication
 ]
 
-{ #category : #visitor }
+{ #category : 'visitor' }
 BormCabeDiagramVisitor >> visitDataFlow: aXMLElement [
 	| flow |
 	(entities includesKey: aXMLElement parent)
@@ -117,7 +119,7 @@ BormCabeDiagramVisitor >> visitDataFlow: aXMLElement [
 	(entities at: aXMLElement parent) addDataFlow: flow
 ]
 
-{ #category : #visitor }
+{ #category : 'visitor' }
 BormCabeDiagramVisitor >> visitDocument: aXMLDocument [
 	document := aXMLDocument.
 	entities := Dictionary new.
@@ -126,7 +128,7 @@ BormCabeDiagramVisitor >> visitDocument: aXMLDocument [
 	aXMLDocument root allElementsDo: [ :each | self visit: each ]
 ]
 
-{ #category : #visitor }
+{ #category : 'visitor' }
 BormCabeDiagramVisitor >> visitORTransition: aXMLElement [
 	| transition |
 	transition := BormFactory
@@ -137,7 +139,7 @@ BormCabeDiagramVisitor >> visitORTransition: aXMLElement [
 	^ transition
 ]
 
-{ #category : #visitor }
+{ #category : 'visitor' }
 BormCabeDiagramVisitor >> visitParticipant: aXMLElement [
 	| participant |
 	participant := BormParticipant new.
@@ -152,7 +154,7 @@ BormCabeDiagramVisitor >> visitParticipant: aXMLElement [
 	diagram add: participant
 ]
 
-{ #category : #visitor }
+{ #category : 'visitor' }
 BormCabeDiagramVisitor >> visitState: aXMLElement [
 	| state |
 	state := BormState named: (self entityNameFor: aXMLElement).

diff --git a/repository/Borm-OpenCabe-Importer/BormCabeImporter.class.st b/repository/Borm-OpenCabe-Importer/BormCabeImporter.class.st
@@ -1,30 +1,32 @@
 Class {
-	#name : #BormCabeImporter,
-	#superclass : #Object,
+	#name : 'BormCabeImporter',
+	#superclass : 'Object',
 	#instVars : [
 		'entities',
 		'root',
 		'project'
 	],
-	#category : 'Borm-OpenCabe-Importer-Importer'
+	#category : 'Borm-OpenCabe-Importer-Importer',
+	#package : 'Borm-OpenCabe-Importer',
+	#tag : 'Importer'
 }
 
-{ #category : #importing }
+{ #category : 'importing' }
 BormCabeImporter class >> importFile: aFileReference [
 	^ self new importFile: aFileReference
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BormCabeImporter >> entities [
 	^ entities
 ]
 
-{ #category : #retrieving }
+{ #category : 'retrieving' }
 BormCabeImporter >> getDocument: aPath [
 	^ self parseXml: (root resolve: aPath)
 ]
 
-{ #category : #'private - importing' }
+{ #category : 'private - importing' }
 BormCabeImporter >> importDiagram: aXMLDocument [
 	| importer |
 	importer := BormCabeDiagramVisitor new.
@@ -33,18 +35,18 @@ BormCabeImporter >> importDiagram: aXMLDocument [
 	project addDiagram: importer diagram
 ]
 
-{ #category : #'private - importing' }
+{ #category : 'private - importing' }
 BormCabeImporter >> importEntities: aDocument [
 	entities := aDocument // #entities collect: #attributes
 ]
 
-{ #category : #importing }
+{ #category : 'importing' }
 BormCabeImporter >> importFile: aFileReference [
 	root := (FileSystem zip: aFileReference) open workingDirectory.
 	self importProject: (self getDocument: 'project.xmi')
 ]
 
-{ #category : #'private - importing' }
+{ #category : 'private - importing' }
 BormCabeImporter >> importProject: aDocument [
 	project := DCProject new.
 	self
@@ -57,17 +59,17 @@ BormCabeImporter >> importProject: aDocument [
 			[ :each | self importDiagram: (self resolvePath: (each attributeAt: #href)) ]
 ]
 
-{ #category : #parsing }
+{ #category : 'parsing' }
 BormCabeImporter >> parseXml: aFile [
 	^ XMLDOMParser parse: aFile
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BormCabeImporter >> project [
 	^ project
 ]
 
-{ #category : #navigating }
+{ #category : 'navigating' }
 BormCabeImporter >> resolvePath: aString [
 	| url |
 	url := XMLURI fromString: aString.

diff --git a/repository/Borm-OpenCabe-Importer/package.st b/repository/Borm-OpenCabe-Importer/package.st
@@ -1 +1 @@
-Package { #name : #'Borm-OpenCabe-Importer' }
+Package { #name : 'Borm-OpenCabe-Importer' }
diff --git a/repository/OpenPonk-BormEditor/BormActivityShape.class.st b/repository/OpenPonk-BormEditor/BormActivityShape.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #BormActivityShape,
-	#superclass : #BormNodeShape,
-	#category : #'OpenPonk-BormEditor-Shapes'
+	#name : 'BormActivityShape',
+	#superclass : 'BormNodeShape',
+	#category : 'OpenPonk-BormEditor-Shapes',
+	#package : 'OpenPonk-BormEditor',
+	#tag : 'Shapes'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : 'as yet unclassified' }
 BormActivityShape >> renderBasicShape [
 
 	^ self shapesFactory newRoundedBox

diff --git a/repository/OpenPonk-BormEditor/BormAssociationShape.class.st b/repository/OpenPonk-BormEditor/BormAssociationShape.class.st
@@ -1,16 +1,18 @@
 Class {
-	#name : #BormAssociationShape,
-	#superclass : #OPEdge,
-	#category : #'OpenPonk-BormEditor-Shapes'
+	#name : 'BormAssociationShape',
+	#superclass : 'OPEdge',
+	#category : 'OpenPonk-BormEditor-Shapes',
+	#package : 'OpenPonk-BormEditor',
+	#tag : 'Shapes'
 }
 
-{ #category : #constants }
+{ #category : 'constants' }
 BormAssociationShape >> marker [
 
 	^ self subclassResponsibility
 ]
 
-{ #category : #rendering }
+{ #category : 'rendering' }
 BormAssociationShape >> renderBasicShape [
 
 	^ OPRSPolyline new

diff --git a/repository/OpenPonk-BormEditor/BormCommunicationShape.class.st b/repository/OpenPonk-BormEditor/BormCommunicationShape.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #BormCommunicationShape,
-	#superclass : #BormAssociationShape,
-	#category : #'OpenPonk-BormEditor-Shapes'
+	#name : 'BormCommunicationShape',
+	#superclass : 'BormAssociationShape',
+	#category : 'OpenPonk-BormEditor-Shapes',
+	#package : 'OpenPonk-BormEditor',
+	#tag : 'Shapes'
 }
 
-{ #category : #constants }
+{ #category : 'constants' }
 BormCommunicationShape >> marker [
 
 	^ OPRSMarkerBuilder arrow

diff --git a/repository/OpenPonk-BormEditor/BormConstraintShape.class.st b/repository/OpenPonk-BormEditor/BormConstraintShape.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #BormConstraintShape,
-	#superclass : #OPEdgeLabel,
-	#category : #'OpenPonk-BormEditor-Shapes'
+	#name : 'BormConstraintShape',
+	#superclass : 'OPEdgeLabel',
+	#category : 'OpenPonk-BormEditor-Shapes',
+	#package : 'OpenPonk-BormEditor',
+	#tag : 'Shapes'
 }
 
-{ #category : #adding }
+{ #category : 'adding' }
 BormConstraintShape >> anchorToEdge [
 
 	OPRSAnchorConstraint new
@@ -14,37 +16,37 @@ BormConstraintShape >> anchorToEdge [
 		stick: roassalShape on: self owningElement roassalShape
 ]
 
-{ #category : #adding }
+{ #category : 'adding' }
 BormConstraintShape >> defaultAnchorConstraintPosition [
 
 	^ OPRSAnchorConstraintBalanceReference balance: 0.5
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 BormConstraintShape >> defaultFontSize [
 
 	^ 12
 ]
 
-{ #category : #adding }
+{ #category : 'adding' }
 BormConstraintShape >> defaultMinDistance [
 
 	^ 10
 ]
 
-{ #category : #rendering }
+{ #category : 'rendering' }
 BormConstraintShape >> defaultText [
 
 	^ self modelElement name ifEmpty: [ 'condition' ]
 ]
 
-{ #category : #adding }
+{ #category : 'adding' }
 BormConstraintShape >> selectableInteraction [
 
 	^ OPRSSelectable highlightColorBlue
 ]
 
-{ #category : #adding }
+{ #category : 'adding' }
 BormConstraintShape >> shouldBePositionableByUser [
 
 	^ true