Updates for Pharo 12

OpenPonk · May 7, 2024 · 5c626ad · 5c626ad
1 parent 6f4d36a
commit 5c626ad
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 21 deletions.
diff --git a/repository/OP-UML-Profiles/OPUMLProfile.extension.st b/repository/OP-UML-Profiles/OPUMLProfile.extension.st
@@ -1,21 +1,21 @@
-Extension { #name : #OPUMLProfile }
+Extension { #name : 'OPUMLProfile' }
 
-{ #category : #'*OP-UML-Profiles' }
+{ #category : '*OP-UML-Profiles' }
 OPUMLProfile >> implementationPackage [
 	^ self tagAt: #implementationPackage ifAbsent: [ 'Unclassified' ]
 ]
 
-{ #category : #'*OP-UML-Profiles' }
+{ #category : '*OP-UML-Profiles' }
 OPUMLProfile >> implementationPackage: aName [
 	self tagAt: #implementationPackage put: aName
 ]
 
-{ #category : #'*OP-UML-Profiles' }
+{ #category : '*OP-UML-Profiles' }
 OPUMLProfile >> implementationPrefix [
 	^ self tagAt: #implementationPrefix ifAbsent: [ 'XYZ' ]
 ]
 
-{ #category : #'*OP-UML-Profiles' }
+{ #category : '*OP-UML-Profiles' }
 OPUMLProfile >> implementationPrefix: aName [
 	^ self tagAt: #implementationPrefix put: aName
 ]
diff --git a/repository/OP-UML-Profiles/OPUMLStereotype.extension.st b/repository/OP-UML-Profiles/OPUMLStereotype.extension.st
@@ -1,11 +1,12 @@
-Extension { #name : #OPUMLStereotype }
+Extension { #name : 'OPUMLStereotype' }
 
-{ #category : #'*OP-UML-Profiles' }
+{ #category : '*OP-UML-Profiles' }
 OPUMLStereotype >> implementationClass [
-	^ self implementationClassName asClass
+
+	^ Smalltalk at: self implementationClassName
 ]
 
-{ #category : #'*OP-UML-Profiles' }
+{ #category : '*OP-UML-Profiles' }
 OPUMLStereotype >> implementationClassName [
 	^ self tags
 		at: #implementationClassName

diff --git a/repository/OP-UML-Profiles/OPUmlCustomProfile.class.st b/repository/OP-UML-Profiles/OPUmlCustomProfile.class.st
@@ -1,17 +1,18 @@
 Class {
-	#name : #OPUmlCustomProfile,
-	#superclass : #Object,
+	#name : 'OPUmlCustomProfile',
+	#superclass : 'Object',
 	#instVars : [
 		'metaClasses'
 	],
 	#classInstVars : [
 		'profile',
 		'metaClassMap'
 	],
-	#category : 'OP-UML-Profiles'
+	#category : 'OP-UML-Profiles',
+	#package : 'OP-UML-Profiles'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUmlCustomProfile class >> metaClassFor: anElement [
 	"
 	metaClassMap := nil
@@ -23,41 +24,41 @@ OPUmlCustomProfile class >> metaClassFor: anElement [
 	^ metaClassMap at: anElement umlClassName
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUmlCustomProfile class >> profile [
 	<script: 'self profile inspect'>
 	^ profile ifNil: [ profile := self new createProfile ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 OPUmlCustomProfile class >> reset [
 	<script>
 	profile := nil.
 	metaClassMap := nil
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 OPUmlCustomProfile >> createProfile [
 	^ self subclassResponsibility
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 OPUmlCustomProfile >> initialize [
 	super initialize.
 	metaClasses := Dictionary new
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 OPUmlCustomProfile >> metaClassNamed: aClassName [
 	^ OPUMLXMISpecsStorage metaClassNamed: aClassName
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 OPUmlCustomProfile >> newStereotype: aName to: aBaseClass [
 	^ self newStereotype: aName to: aBaseClass optional: true
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 OPUmlCustomProfile >> newStereotype: aName to: aBaseClass optional: isOptional [
 	| stereotype baseName extension baseProperty extensionProperty |
 	baseName := aBaseClass name.

diff --git a/repository/OP-UML-Profiles/package.st b/repository/OP-UML-Profiles/package.st
@@ -1 +1 @@
-Package { #name : #'OP-UML-Profiles' }
+Package { #name : 'OP-UML-Profiles' }
Original file line number	Diff line number	Diff line change
		@@ -1 +1 @@
		Package { #name : #'OP-UML-Profiles' }
		Package { #name : 'OP-UML-Profiles' }