Moved to Tonel 3

OpenPonk · Jun 18, 2024 · e379d33 · e379d33
1 parent 0a1b101
commit e379d33
Show file tree

Hide file tree

Showing 278 changed files with 12,702 additions and 12,165 deletions.
diff --git a/repository/BaselineOfUMLMetamodel/BaselineOfUMLMetamodel.class.st b/repository/BaselineOfUMLMetamodel/BaselineOfUMLMetamodel.class.st
@@ -2,12 +2,13 @@
 Baseline of https://github.com/OpenPonk/uml-metamodel
 "
 Class {
-	#name : #BaselineOfUMLMetamodel,
-	#superclass : #BaselineOf,
-	#category : 'BaselineOfUMLMetamodel'
+	#name : 'BaselineOfUMLMetamodel',
+	#superclass : 'BaselineOf',
+	#category : 'BaselineOfUMLMetamodel',
+	#package : 'BaselineOfUMLMetamodel'
 }
 
-{ #category : #baselines }
+{ #category : 'baselines' }
 BaselineOfUMLMetamodel >> baseline: spec [
 	<baseline>
 	spec

diff --git a/repository/BaselineOfUMLMetamodel/package.st b/repository/BaselineOfUMLMetamodel/package.st
@@ -1 +1 @@
-Package { #name : #BaselineOfUMLMetamodel }
+Package { #name : 'BaselineOfUMLMetamodel' }
diff --git a/repository/OP-UML-GTExtensions/OPUMLMetaElement.extension.st b/repository/OP-UML-GTExtensions/OPUMLMetaElement.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #OPUMLMetaElement }
+Extension { #name : 'OPUMLMetaElement' }
 
-{ #category : #'*OP-UML-GTExtensions' }
+{ #category : '*OP-UML-GTExtensions' }
 OPUMLMetaElement >> gtInspectorSharedGeneralizationsViewIn: aComposite [
 	<gtInspectorPresentationOrder: 9>
 	aComposite roassal2

diff --git a/repository/OP-UML-GTExtensions/OPUMLModel.extension.st b/repository/OP-UML-GTExtensions/OPUMLModel.extension.st
@@ -1,12 +1,12 @@
-Extension { #name : #OPUMLModel }
+Extension { #name : 'OPUMLModel' }
 
-{ #category : #'*OP-UML-GTExtensions' }
+{ #category : '*OP-UML-GTExtensions' }
 OPUMLModel >> gtInspectorPackageViewIn: aComposite [
 	<gtInspectorPresentationOrder: 11>
 	^ (sharedGeneralizations at: #Package) gtInspectorPackageViewIn: aComposite
 ]
 
-{ #category : #'*OP-UML-GTExtensions' }
+{ #category : '*OP-UML-GTExtensions' }
 OPUMLModel >> gtInspectorPackagedElementsViewIn: aComposite [
 	<gtInspectorPresentationOrder: 11>
 	^ (sharedGeneralizations at: #Package) gtInspectorPackagedElementsViewIn: aComposite

diff --git a/repository/OP-UML-GTExtensions/OPUMLPackage.extension.st b/repository/OP-UML-GTExtensions/OPUMLPackage.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #OPUMLPackage }
+Extension { #name : 'OPUMLPackage' }
 
-{ #category : #'*OP-UML-GTExtensions' }
+{ #category : '*OP-UML-GTExtensions' }
 OPUMLPackage >> gtInspectorPackageViewIn: aComposite [
 	<gtInspectorPresentationOrder: 11>
 	^ aComposite roassal2
@@ -68,7 +68,7 @@ OPUMLPackage >> gtInspectorPackageViewIn: aComposite [
 			v ]
 ]
 
-{ #category : #'*OP-UML-GTExtensions' }
+{ #category : '*OP-UML-GTExtensions' }
 OPUMLPackage >> gtInspectorPackagedElementsViewIn: aComposite [
 	<gtInspectorPresentationOrder: 10>
 	aComposite roassal2

diff --git a/repository/OP-UML-GTExtensions/OPUMLProfile.extension.st b/repository/OP-UML-GTExtensions/OPUMLProfile.extension.st
@@ -1,12 +1,12 @@
-Extension { #name : #OPUMLProfile }
+Extension { #name : 'OPUMLProfile' }
 
-{ #category : #'*OP-UML-GTExtensions' }
+{ #category : '*OP-UML-GTExtensions' }
 OPUMLProfile >> gtInspectorPackageViewIn: aComposite [
 	<gtInspectorPresentationOrder: 11>
 	^ (sharedGeneralizations at: #Package) gtInspectorPackageViewIn: aComposite
 ]
 
-{ #category : #'*OP-UML-GTExtensions' }
+{ #category : '*OP-UML-GTExtensions' }
 OPUMLProfile >> gtInspectorPackagedElementsViewIn: aComposite [
 	<gtInspectorPresentationOrder: 11>
 	^ (sharedGeneralizations at: #Package) gtInspectorPackagedElementsViewIn: aComposite

diff --git a/repository/OP-UML-GTExtensions/OPUMLRTInteractiveViewContext.class.st b/repository/OP-UML-GTExtensions/OPUMLRTInteractiveViewContext.class.st
@@ -1,10 +1,11 @@
 Class {
-	#name : #OPUMLRTInteractiveViewContext,
-	#superclass : #RTAbstractViewContext,
-	#category : 'OP-UML-GTExtensions'
+	#name : 'OPUMLRTInteractiveViewContext',
+	#superclass : 'RTAbstractViewContext',
+	#category : 'OP-UML-GTExtensions',
+	#package : 'OP-UML-GTExtensions'
 }
 
-{ #category : #hooks }
+{ #category : 'hooks' }
 OPUMLRTInteractiveViewContext >> interactionsToBeRegistered [
 	^ Array with: OPUMLRTSelectableElementsContextInteraction with: RTResizeableViewContextInteraction
 ]
diff --git a/repository/OP-UML-GTExtensions/OPUMLRTSelectableElementsContextInteraction.class.st b/repository/OP-UML-GTExtensions/OPUMLRTSelectableElementsContextInteraction.class.st
@@ -1,24 +1,25 @@
 Class {
-	#name : #OPUMLRTSelectableElementsContextInteraction,
-	#superclass : #RTAbstractContextInteraction,
-	#category : 'OP-UML-GTExtensions'
+	#name : 'OPUMLRTSelectableElementsContextInteraction',
+	#superclass : 'RTAbstractContextInteraction',
+	#category : 'OP-UML-GTExtensions',
+	#package : 'OP-UML-GTExtensions'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 OPUMLRTSelectableElementsContextInteraction >> initializeElement: aView [
 	self
 		assert: [ self presentation notNil ]
 		description: 'The presentation has to be set'.
 	self initializeSetOfElements: aView elements
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 OPUMLRTSelectableElementsContextInteraction >> initializeSetOfElements: elements [
  	elements do:
 		[ :each | self initializeSingleElement: each ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 OPUMLRTSelectableElementsContextInteraction >> initializeSingleElement: each [
 	^ each
 		when: TRMouseLeftClick

diff --git a/repository/OP-UML-GTExtensions/package.st b/repository/OP-UML-GTExtensions/package.st
@@ -1 +1 @@
-Package { #name : #'OP-UML-GTExtensions' }
+Package { #name : 'OP-UML-GTExtensions' }
diff --git a/repository/OP-UML-Meta/OPUMLManyToManyLinks.class.st b/repository/OP-UML-Meta/OPUMLManyToManyLinks.class.st
@@ -1,15 +1,17 @@
 Class {
-	#name : #OPUMLManyToManyLinks,
-	#superclass : #OPUMLToManyLinks,
-	#category : 'OP-UML-Meta-Models'
+	#name : 'OPUMLManyToManyLinks',
+	#superclass : 'OPUMLToManyLinks',
+	#category : 'OP-UML-Meta-Models',
+	#package : 'OP-UML-Meta',
+	#tag : 'Models'
 }
 
-{ #category : #adding }
+{ #category : 'adding' }
 OPUMLManyToManyLinks >> addOppositeTo: anObject [
 	(anObject perform: oppositeSelector) add: owner
 ]
 
-{ #category : #removing }
+{ #category : 'removing' }
 OPUMLManyToManyLinks >> removeOppositeFrom: anObject [
 	| opposite |
 	opposite := anObject perform: oppositeSelector.

diff --git a/repository/OP-UML-Meta/OPUMLTestAuthor.class.st b/repository/OP-UML-Meta/OPUMLTestAuthor.class.st
@@ -1,18 +1,20 @@
 Class {
-	#name : #OPUMLTestAuthor,
-	#superclass : #Object,
+	#name : 'OPUMLTestAuthor',
+	#superclass : 'Object',
 	#instVars : [
 		'books'
 	],
-	#category : 'OP-UML-Meta-Tests'
+	#category : 'OP-UML-Meta-Tests',
+	#package : 'OP-UML-Meta',
+	#tag : 'Tests'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestAuthor >> books [
 	^ books ifNil: [ books := OPUMLManyToManyLinks on: self opposite: #authors ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestAuthor >> books: aCollection [
 	self books
 		removeAll;

diff --git a/repository/OP-UML-Meta/OPUMLTestBook.class.st b/repository/OP-UML-Meta/OPUMLTestBook.class.st
@@ -1,31 +1,33 @@
 Class {
-	#name : #OPUMLTestBook,
-	#superclass : #Object,
+	#name : 'OPUMLTestBook',
+	#superclass : 'Object',
 	#instVars : [
 		'authors',
 		'reviews'
 	],
-	#category : 'OP-UML-Meta-Tests'
+	#category : 'OP-UML-Meta-Tests',
+	#package : 'OP-UML-Meta',
+	#tag : 'Tests'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestBook >> authors [
 	^ authors ifNil: [ authors := OPUMLManyToManyLinks on: self opposite: #books ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestBook >> authors: aCollection [
 	self authors
 		removeAll;
 		addAll: aCollection
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestBook >> reviews [
 	^ reviews ifNil: [ reviews := OPUMLToManyLinks on: self opposite: #book: ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestBook >> reviews: aCollection [
 	self reviews
 		removeAll;

diff --git a/repository/OP-UML-Meta/OPUMLTestReview.class.st b/repository/OP-UML-Meta/OPUMLTestReview.class.st
@@ -1,19 +1,21 @@
 Class {
-	#name : #OPUMLTestReview,
-	#superclass : #Object,
+	#name : 'OPUMLTestReview',
+	#superclass : 'Object',
 	#instVars : [
 		'book',
 		'score'
 	],
-	#category : 'OP-UML-Meta-Tests'
+	#category : 'OP-UML-Meta-Tests',
+	#package : 'OP-UML-Meta',
+	#tag : 'Tests'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestReview >> book [
 	^ book
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestReview >> book: aBook [
 	book := OPUMLToOneLink
 		on: self
@@ -22,12 +24,12 @@ OPUMLTestReview >> book: aBook [
 		to: aBook
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestReview >> score [
 	^ score
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestReview >> score: aNewScore [
 	| oldScore |
 	oldScore := score.

diff --git a/repository/OP-UML-Meta/OPUMLTestScore.class.st b/repository/OP-UML-Meta/OPUMLTestScore.class.st
@@ -1,18 +1,20 @@
 Class {
-	#name : #OPUMLTestScore,
-	#superclass : #Object,
+	#name : 'OPUMLTestScore',
+	#superclass : 'Object',
 	#instVars : [
 		'review'
 	],
-	#category : 'OP-UML-Meta-Tests'
+	#category : 'OP-UML-Meta-Tests',
+	#package : 'OP-UML-Meta',
+	#tag : 'Tests'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestScore >> review [
 	^ review
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUMLTestScore >> review: aNewReview [
 	| anOldReview |
 	anOldReview := review.