diff --git a/repository/BaselineOfOpenPonkUMLProfiles/BaselineOfOpenPonkUMLProfiles.class.st b/repository/BaselineOfOpenPonkUMLProfiles/BaselineOfOpenPonkUMLProfiles.class.st new file mode 100644 index 0000000..7cc6360 --- /dev/null +++ b/repository/BaselineOfOpenPonkUMLProfiles/BaselineOfOpenPonkUMLProfiles.class.st @@ -0,0 +1,23 @@ +" +Baseline for https://github.com/OpenPonk/uml-profiles +" +Class { + #name : 'BaselineOfOpenPonkUMLProfiles', + #superclass : 'BaselineOf', + #category : 'BaselineOfOpenPonkUMLProfiles', + #package : 'BaselineOfOpenPonkUMLProfiles' +} + +{ #category : 'baselines' } +BaselineOfOpenPonkUMLProfiles >> baseline: spec [ + + spec + for: #common + do: [ spec + baseline: 'OpenPonkUMLMetamodel' + with: [ spec repository: 'github://openponk/uml-metamodel' ]. + spec package: 'OpenPonk-UML-Profiles' with: [ spec requires: #('UMLMetamodel') ]. + spec package: 'OpenPonk-ClockProfile' with: [ spec requires: #('OP-UML-Profiles') ]. + spec package: 'OpenPonk-IssuesProfile' with: [ spec requires: #('OP-UML-Profiles') ]. + spec group: 'default' with: #('OpenPonk-UML-Profiles' 'OpenPonk-ClockProfile' 'OpenPonk-IssuesProfile') ] +] diff --git a/repository/BaselineOfOpenPonkUMLProfiles/package.st b/repository/BaselineOfOpenPonkUMLProfiles/package.st new file mode 100644 index 0000000..1df7345 --- /dev/null +++ b/repository/BaselineOfOpenPonkUMLProfiles/package.st @@ -0,0 +1 @@ +Package { #name : 'BaselineOfOpenPonkUMLProfiles' } diff --git a/repository/BaselineOfUMLProfiles/BaselineOfUMLProfiles.class.st b/repository/BaselineOfUMLProfiles/BaselineOfUMLProfiles.class.st deleted file mode 100644 index 694fa4e..0000000 --- a/repository/BaselineOfUMLProfiles/BaselineOfUMLProfiles.class.st +++ /dev/null @@ -1,23 +0,0 @@ -" -Baseline for https://github.com/OpenPonk/uml-profiles -" -Class { - #name : 'BaselineOfUMLProfiles', - #superclass : 'BaselineOf', - #category : 'BaselineOfUMLProfiles', - #package : 'BaselineOfUMLProfiles' -} - -{ #category : 'baselines' } -BaselineOfUMLProfiles >> baseline: spec [ - - spec - for: #common - do: [ spec - baseline: 'UMLMetamodel' - with: [ spec repository: 'github://openponk/uml-metamodel/repository' ]. - spec package: 'OP-UML-Profiles' with: [ spec requires: #('UMLMetamodel') ]. - spec package: 'OP-ClockProfile' with: [ spec requires: #('OP-UML-Profiles') ]. - spec package: 'OP-IssuesProfile' with: [ spec requires: #('OP-UML-Profiles') ]. - spec group: 'default' with: #('OP-UML-Profiles' 'OP-ClockProfile' 'OP-IssuesProfile') ] -] diff --git a/repository/BaselineOfUMLProfiles/package.st b/repository/BaselineOfUMLProfiles/package.st deleted file mode 100644 index 5abd069..0000000 --- a/repository/BaselineOfUMLProfiles/package.st +++ /dev/null @@ -1 +0,0 @@ -Package { #name : 'BaselineOfUMLProfiles' } diff --git a/repository/OP-ClockProfile/package.st b/repository/OP-ClockProfile/package.st deleted file mode 100644 index bba1dd0..0000000 --- a/repository/OP-ClockProfile/package.st +++ /dev/null @@ -1 +0,0 @@ -Package { #name : 'OP-ClockProfile' } diff --git a/repository/OP-IssuesProfile/package.st b/repository/OP-IssuesProfile/package.st deleted file mode 100644 index 1692907..0000000 --- a/repository/OP-IssuesProfile/package.st +++ /dev/null @@ -1 +0,0 @@ -Package { #name : 'OP-IssuesProfile' } diff --git a/repository/OP-UML-Profiles/package.st b/repository/OP-UML-Profiles/package.st deleted file mode 100644 index a102f79..0000000 --- a/repository/OP-UML-Profiles/package.st +++ /dev/null @@ -1 +0,0 @@ -Package { #name : 'OP-UML-Profiles' } diff --git a/repository/OP-ClockProfile/ClClock.class.st b/repository/OpenPonk-ClockProfile/ClClock.class.st similarity index 87% rename from repository/OP-ClockProfile/ClClock.class.st rename to repository/OpenPonk-ClockProfile/ClClock.class.st index 6a5121e..ec44add 100644 --- a/repository/OP-ClockProfile/ClClock.class.st +++ b/repository/OpenPonk-ClockProfile/ClClock.class.st @@ -1,60 +1,60 @@ -Class { - #name : 'ClClock', - #superclass : 'Object', - #instVars : [ - 'osVersion', - 'posixCompliant', - 'base_Class' - ], - #category : 'OP-ClockProfile-Metamodel', - #package : 'OP-ClockProfile', - #tag : 'Metamodel' -} - -{ #category : 'accessing' } -ClClock >> base_Class [ - ^ base_Class -] - -{ #category : 'accessing' } -ClClock >> base_Class: aClass [ - | oldClass | - oldClass := base_Class. - base_Class := aClass. - OPUMLToOneLink - on: self - thisSelector: #base_Class - otherSelector: #extension_Clock - updateFrom: oldClass - to: aClass -] - -{ #category : 'accessing' } -ClClock >> osVersion [ - ^ osVersion -] - -{ #category : 'accessing' } -ClClock >> osVersion: aString [ - osVersion := aString -] - -{ #category : 'accessing' } -ClClock >> posixCompliant [ - ^ posixCompliant ifNil: [ false ] -] - -{ #category : 'accessing' } -ClClock >> posixCompliant: aBoolean [ - posixCompliant := aBoolean -] - -{ #category : 'accessing' } -ClClock >> umlClassName [ - ^ 'Clock' -] - -{ #category : 'accessing' } -ClClock >> umlMetaClass [ - ^ ClClockProfileFactory metaClassFor: self -] +Class { + #name : 'ClClock', + #superclass : 'Object', + #instVars : [ + 'osVersion', + 'posixCompliant', + 'base_Class' + ], + #category : 'OpenPonk-ClockProfile-Metamodel', + #package : 'OpenPonk-ClockProfile', + #tag : 'Metamodel' +} + +{ #category : 'accessing' } +ClClock >> base_Class [ + ^ base_Class +] + +{ #category : 'accessing' } +ClClock >> base_Class: aClass [ + | oldClass | + oldClass := base_Class. + base_Class := aClass. + OPUMLToOneLink + on: self + thisSelector: #base_Class + otherSelector: #extension_Clock + updateFrom: oldClass + to: aClass +] + +{ #category : 'accessing' } +ClClock >> osVersion [ + ^ osVersion +] + +{ #category : 'accessing' } +ClClock >> osVersion: aString [ + osVersion := aString +] + +{ #category : 'accessing' } +ClClock >> posixCompliant [ + ^ posixCompliant ifNil: [ false ] +] + +{ #category : 'accessing' } +ClClock >> posixCompliant: aBoolean [ + posixCompliant := aBoolean +] + +{ #category : 'accessing' } +ClClock >> umlClassName [ + ^ 'Clock' +] + +{ #category : 'accessing' } +ClClock >> umlMetaClass [ + ^ ClClockProfileFactory metaClassFor: self +] diff --git a/repository/OP-ClockProfile/ClClockProfileFactory.class.st b/repository/OpenPonk-ClockProfile/ClClockProfileFactory.class.st similarity index 93% rename from repository/OP-ClockProfile/ClClockProfileFactory.class.st rename to repository/OpenPonk-ClockProfile/ClClockProfileFactory.class.st index b57a685..fc91b97 100644 --- a/repository/OP-ClockProfile/ClClockProfileFactory.class.st +++ b/repository/OpenPonk-ClockProfile/ClClockProfileFactory.class.st @@ -1,78 +1,78 @@ -Class { - #name : 'ClClockProfileFactory', - #superclass : 'OPUmlCustomProfile', - #category : 'OP-ClockProfile-Model', - #package : 'OP-ClockProfile', - #tag : 'Model' -} - -{ #category : 'instance creation' } -ClClockProfileFactory >> createProfile [ - | profile classMetaclass clock clockPair | - profile := OPUMLProfile new - name: 'Clock'; - uuid: '_0'; - URI: 'http://www.example.com/Clock/0.1'; - implementationPackage: 'ClockProfile'; - implementationPrefix: 'Cl'. - classMetaclass := self metaClassNamed: 'Class'. - clockPair := self newStereotype: 'Clock' to: classMetaclass. - profile packagedElements addAll: clockPair. - clock := clockPair first. - OPUMLProperty new - name: 'osVersion'; - uuid: clock uuid , '-osVersion'; - owningClass: clock; - type: (OPUMLPrimitiveType new name: 'String'). - "OPUMLProperty new - name: 'startOperation'; - uuid: clock uuid , '-startOperation'; - owningClass: clock; - type: (OPUMLClass new name: 'Operation')." - OPUMLProperty new - name: 'posixCompliant'; - uuid: clock uuid , '-posixCompliant'; - owningClass: clock; - type: (OPUMLPrimitiveType new name: 'Boolean'). - profile ownedStereotype do: [ :each | each profile: profile ]. - ^ profile -] - -{ #category : 'instance creation' } -ClClockProfileFactory >> modelWithAppliedStereotype [ - - - | model class profile | - model := OPUmlExamples emptyModel. - profile := self class profile. - model profileApplications add: - (OPUMLProfileApplication new appliedProfile: profile). - class := OPUMLClass new name: 'StopWatch'. - class applyStereotype: - (profile packagedElements detect: [ :each | each name = 'Clock' ]) - implementationClass new. - model packagedElements add: class. - ^ model -] - -{ #category : 'instance creation' } -ClClockProfileFactory >> openExample [ - - - (OPProject openOnModel: self modelWithAppliedStereotype) - showAllElementsInAllDiagrams -] - -{ #category : 'instance creation' } -ClClockProfileFactory >> openProfile [ - - - (OPProject openOnModel: self class profile) - showAllElementsInAllDiagrams -] - -{ #category : 'instance creation' } -ClClockProfileFactory >> reset [ - - self class reset -] +Class { + #name : 'ClClockProfileFactory', + #superclass : 'OPUmlCustomProfile', + #category : 'OpenPonk-ClockProfile-Model', + #package : 'OpenPonk-ClockProfile', + #tag : 'Model' +} + +{ #category : 'instance creation' } +ClClockProfileFactory >> createProfile [ + | profile classMetaclass clock clockPair | + profile := OPUMLProfile new + name: 'Clock'; + uuid: '_0'; + URI: 'http://www.example.com/Clock/0.1'; + implementationPackage: 'ClockProfile'; + implementationPrefix: 'Cl'. + classMetaclass := self metaClassNamed: 'Class'. + clockPair := self newStereotype: 'Clock' to: classMetaclass. + profile packagedElements addAll: clockPair. + clock := clockPair first. + OPUMLProperty new + name: 'osVersion'; + uuid: clock uuid , '-osVersion'; + owningClass: clock; + type: (OPUMLPrimitiveType new name: 'String'). + "OPUMLProperty new + name: 'startOperation'; + uuid: clock uuid , '-startOperation'; + owningClass: clock; + type: (OPUMLClass new name: 'Operation')." + OPUMLProperty new + name: 'posixCompliant'; + uuid: clock uuid , '-posixCompliant'; + owningClass: clock; + type: (OPUMLPrimitiveType new name: 'Boolean'). + profile ownedStereotype do: [ :each | each profile: profile ]. + ^ profile +] + +{ #category : 'instance creation' } +ClClockProfileFactory >> modelWithAppliedStereotype [ + + + | model class profile | + model := OPUmlExamples emptyModel. + profile := self class profile. + model profileApplications add: + (OPUMLProfileApplication new appliedProfile: profile). + class := OPUMLClass new name: 'StopWatch'. + class applyStereotype: + (profile packagedElements detect: [ :each | each name = 'Clock' ]) + implementationClass new. + model packagedElements add: class. + ^ model +] + +{ #category : 'instance creation' } +ClClockProfileFactory >> openExample [ + + + (OPProject openOnModel: self modelWithAppliedStereotype) + showAllElementsInAllDiagrams +] + +{ #category : 'instance creation' } +ClClockProfileFactory >> openProfile [ + + + (OPProject openOnModel: self class profile) + showAllElementsInAllDiagrams +] + +{ #category : 'instance creation' } +ClClockProfileFactory >> reset [ + + self class reset +] diff --git a/repository/OP-ClockProfile/OPUMLClass.extension.st b/repository/OpenPonk-ClockProfile/OPUMLClass.extension.st similarity index 77% rename from repository/OP-ClockProfile/OPUMLClass.extension.st rename to repository/OpenPonk-ClockProfile/OPUMLClass.extension.st index 25586aa..4804e1b 100644 --- a/repository/OP-ClockProfile/OPUMLClass.extension.st +++ b/repository/OpenPonk-ClockProfile/OPUMLClass.extension.st @@ -1,19 +1,19 @@ -Extension { #name : 'OPUMLClass' } - -{ #category : '*OP-ClockProfile-Metamodel' } -OPUMLClass >> extension_Clock [ - ^ self tagAt: #extension_Clock ifAbsent: [ nil ] -] - -{ #category : '*OP-ClockProfile-Metamodel' } -OPUMLClass >> extension_Clock: aClock [ - | oldClock | - oldClock := self extension_Clock. - self tagAt: #extension_Clock put: aClock. - OPUMLToOneLink - on: self - thisSelector: #extension_Clock - otherSelector: #base_Class - updateFrom: oldClock - to: aClock -] +Extension { #name : 'OPUMLClass' } + +{ #category : '*OpenPonk-ClockProfile-Metamodel' } +OPUMLClass >> extension_Clock [ + ^ self tagAt: #extension_Clock ifAbsent: [ nil ] +] + +{ #category : '*OpenPonk-ClockProfile-Metamodel' } +OPUMLClass >> extension_Clock: aClock [ + | oldClock | + oldClock := self extension_Clock. + self tagAt: #extension_Clock put: aClock. + OPUMLToOneLink + on: self + thisSelector: #extension_Clock + otherSelector: #base_Class + updateFrom: oldClock + to: aClock +] diff --git a/repository/OpenPonk-ClockProfile/package.st b/repository/OpenPonk-ClockProfile/package.st new file mode 100644 index 0000000..db2572d --- /dev/null +++ b/repository/OpenPonk-ClockProfile/package.st @@ -0,0 +1 @@ +Package { #name : 'OpenPonk-ClockProfile' } diff --git a/repository/OP-IssuesProfile/IPIssueTag.class.st b/repository/OpenPonk-IssuesProfile/IPIssueTag.class.st similarity index 87% rename from repository/OP-IssuesProfile/IPIssueTag.class.st rename to repository/OpenPonk-IssuesProfile/IPIssueTag.class.st index 9ec2b15..375a43d 100644 --- a/repository/OP-IssuesProfile/IPIssueTag.class.st +++ b/repository/OpenPonk-IssuesProfile/IPIssueTag.class.st @@ -1,49 +1,49 @@ -Class { - #name : 'IPIssueTag', - #superclass : 'OPUMLElement', - #instVars : [ - 'base_Element', - 'reviewed' - ], - #category : 'OP-IssuesProfile-Metamodel', - #package : 'OP-IssuesProfile', - #tag : 'Metamodel' -} - -{ #category : 'accessing' } -IPIssueTag >> base_Element [ - ^ base_Element -] - -{ #category : 'accessing' } -IPIssueTag >> base_Element: anElement [ - | oldElement | - oldElement := base_Element. - base_Element := anElement. - OPUMLToOneLink - on: self - thisSelector: #base_Element - otherSelector: #extension_IssueTag - updateFrom: oldElement - to: anElement -] - -{ #category : 'accessing' } -IPIssueTag >> reviewed [ - ^ reviewed ifNil: [ false ] -] - -{ #category : 'accessing' } -IPIssueTag >> reviewed: aBoolean [ - reviewed := aBoolean -] - -{ #category : 'accessing' } -IPIssueTag >> umlClassName [ - ^ 'IssueTag' -] - -{ #category : 'accessing' } -IPIssueTag >> umlMetaClass [ - ^ IPIssuesProfileFactory metaClassFor: self -] +Class { + #name : 'IPIssueTag', + #superclass : 'OPUMLElement', + #instVars : [ + 'base_Element', + 'reviewed' + ], + #category : 'OpenPonk-IssuesProfile-Metamodel', + #package : 'OpenPonk-IssuesProfile', + #tag : 'Metamodel' +} + +{ #category : 'accessing' } +IPIssueTag >> base_Element [ + ^ base_Element +] + +{ #category : 'accessing' } +IPIssueTag >> base_Element: anElement [ + | oldElement | + oldElement := base_Element. + base_Element := anElement. + OPUMLToOneLink + on: self + thisSelector: #base_Element + otherSelector: #extension_IssueTag + updateFrom: oldElement + to: anElement +] + +{ #category : 'accessing' } +IPIssueTag >> reviewed [ + ^ reviewed ifNil: [ false ] +] + +{ #category : 'accessing' } +IPIssueTag >> reviewed: aBoolean [ + reviewed := aBoolean +] + +{ #category : 'accessing' } +IPIssueTag >> umlClassName [ + ^ 'IssueTag' +] + +{ #category : 'accessing' } +IPIssueTag >> umlMetaClass [ + ^ IPIssuesProfileFactory metaClassFor: self +] diff --git a/repository/OP-IssuesProfile/IPIssuesProfileFactory.class.st b/repository/OpenPonk-IssuesProfile/IPIssuesProfileFactory.class.st similarity index 94% rename from repository/OP-IssuesProfile/IPIssuesProfileFactory.class.st rename to repository/OpenPonk-IssuesProfile/IPIssuesProfileFactory.class.st index a445f45..b085a6c 100644 --- a/repository/OP-IssuesProfile/IPIssuesProfileFactory.class.st +++ b/repository/OpenPonk-IssuesProfile/IPIssuesProfileFactory.class.st @@ -1,113 +1,113 @@ -Class { - #name : 'IPIssuesProfileFactory', - #superclass : 'OPUmlCustomProfile', - #category : 'OP-IssuesProfile-Model', - #package : 'OP-IssuesProfile', - #tag : 'Model' -} - -{ #category : 'actions' } -IPIssuesProfileFactory >> classA [ - - | classA | - classA := OPUMLClass new - name: 'A'; - uuid: 'A'. - OPUMLProperty new - name: 'width'; - uuid: classA uuid , '-width'; - owningClass: classA. - OPUMLProperty new - name: 'length'; - uuid: classA uuid , '-reviewed'; - owningClass: classA. - ^ classA -] - -{ #category : 'actions' } -IPIssuesProfileFactory >> classB [ - - | classB | - classB := OPUMLClass new - name: 'B'; - uuid: 'B'. - OPUMLProperty new - name: 'x'; - uuid: classB uuid , '-x'; - type: (OPUMLPrimitiveType new name: 'String'); - owningClass: classB. - OPUMLProperty new - name: 'y'; - uuid: classB uuid , '-y'; - owningClass: classB. - ^ classB -] - -{ #category : 'actions' } -IPIssuesProfileFactory >> createProfile [ - | profile elementMetaclass associationMetaclass issueTag importedPackage packageImport | - profile := OPUMLProfile new - name: 'IssuesProfile'; - uuid: '_0'; - URI: 'http://www.example.com/IssuesProfile/0.0'; - implementationPackage: 'IssuesProfile'; - implementationPrefix: 'IP'. - importedPackage := OPUMLXMISpecsStorage umlMetamodel. - packageImport := OPUMLPackageImport new - uuid: '_packageImport.0'; - importedPackage: importedPackage. - profile packageImports add: packageImport. - profile metamodelReferences add: packageImport. - elementMetaclass := self metaClassNamed: 'Element'. - profile packagedElements addAll: (self newStereotype: #IssueTag to: elementMetaclass). - issueTag := profile packagedElements detect: [ :e | e name = #IssueTag ]. - issueTag profile: profile. - OPUMLProperty new - name: 'reviewed'; - uuid: issueTag uuid , '-reviewed'; - owningClass: issueTag; - type: (OPUMLPrimitiveType new name: 'Boolean'); - defaultValue: - (OPUMLLiteralBoolean new - value: false; - uuid: issueTag uuid , '-reviewed-_defaultValue'). - associationMetaclass := OPUMLClass new name: 'Association'. - ^ profile -] - -{ #category : 'actions' } -IPIssuesProfileFactory >> exampleModel [ - - - | model classA classB issueTag profile | - model := OPUmlExamples emptyModel. - profile := self class profile. - model profileApplications add: - (OPUMLProfileApplication new appliedProfile: profile). - issueTag := profile ownedStereotype detect: [ :each | - each name = 'IssueTag' ]. - classA := self classA. - classA applyStereotype: issueTag implementationClass new. - classB := self classB. - classB applyStereotype: issueTag implementationClass new. - model packagedElements - add: classA; - add: classB. - ^ model -] - -{ #category : 'actions' } -IPIssuesProfileFactory >> openExample [ - - - (OPProject openOnModel: self exampleModel) - showAllElementsInAllDiagrams -] - -{ #category : 'actions' } -IPIssuesProfileFactory >> openProfile [ - - - (OPProject openOnModel: self class profile) - showAllElementsInAllDiagrams -] +Class { + #name : 'IPIssuesProfileFactory', + #superclass : 'OPUmlCustomProfile', + #category : 'OpenPonk-IssuesProfile-Model', + #package : 'OpenPonk-IssuesProfile', + #tag : 'Model' +} + +{ #category : 'actions' } +IPIssuesProfileFactory >> classA [ + + | classA | + classA := OPUMLClass new + name: 'A'; + uuid: 'A'. + OPUMLProperty new + name: 'width'; + uuid: classA uuid , '-width'; + owningClass: classA. + OPUMLProperty new + name: 'length'; + uuid: classA uuid , '-reviewed'; + owningClass: classA. + ^ classA +] + +{ #category : 'actions' } +IPIssuesProfileFactory >> classB [ + + | classB | + classB := OPUMLClass new + name: 'B'; + uuid: 'B'. + OPUMLProperty new + name: 'x'; + uuid: classB uuid , '-x'; + type: (OPUMLPrimitiveType new name: 'String'); + owningClass: classB. + OPUMLProperty new + name: 'y'; + uuid: classB uuid , '-y'; + owningClass: classB. + ^ classB +] + +{ #category : 'actions' } +IPIssuesProfileFactory >> createProfile [ + | profile elementMetaclass associationMetaclass issueTag importedPackage packageImport | + profile := OPUMLProfile new + name: 'IssuesProfile'; + uuid: '_0'; + URI: 'http://www.example.com/IssuesProfile/0.0'; + implementationPackage: 'IssuesProfile'; + implementationPrefix: 'IP'. + importedPackage := OPUMLXMISpecsStorage umlMetamodel. + packageImport := OPUMLPackageImport new + uuid: '_packageImport.0'; + importedPackage: importedPackage. + profile packageImports add: packageImport. + profile metamodelReferences add: packageImport. + elementMetaclass := self metaClassNamed: 'Element'. + profile packagedElements addAll: (self newStereotype: #IssueTag to: elementMetaclass). + issueTag := profile packagedElements detect: [ :e | e name = #IssueTag ]. + issueTag profile: profile. + OPUMLProperty new + name: 'reviewed'; + uuid: issueTag uuid , '-reviewed'; + owningClass: issueTag; + type: (OPUMLPrimitiveType new name: 'Boolean'); + defaultValue: + (OPUMLLiteralBoolean new + value: false; + uuid: issueTag uuid , '-reviewed-_defaultValue'). + associationMetaclass := OPUMLClass new name: 'Association'. + ^ profile +] + +{ #category : 'actions' } +IPIssuesProfileFactory >> exampleModel [ + + + | model classA classB issueTag profile | + model := OPUmlExamples emptyModel. + profile := self class profile. + model profileApplications add: + (OPUMLProfileApplication new appliedProfile: profile). + issueTag := profile ownedStereotype detect: [ :each | + each name = 'IssueTag' ]. + classA := self classA. + classA applyStereotype: issueTag implementationClass new. + classB := self classB. + classB applyStereotype: issueTag implementationClass new. + model packagedElements + add: classA; + add: classB. + ^ model +] + +{ #category : 'actions' } +IPIssuesProfileFactory >> openExample [ + + + (OPProject openOnModel: self exampleModel) + showAllElementsInAllDiagrams +] + +{ #category : 'actions' } +IPIssuesProfileFactory >> openProfile [ + + + (OPProject openOnModel: self class profile) + showAllElementsInAllDiagrams +] diff --git a/repository/OP-IssuesProfile/OPUMLElement.extension.st b/repository/OpenPonk-IssuesProfile/OPUMLElement.extension.st similarity index 82% rename from repository/OP-IssuesProfile/OPUMLElement.extension.st rename to repository/OpenPonk-IssuesProfile/OPUMLElement.extension.st index 8674a0b..12e87dd 100644 --- a/repository/OP-IssuesProfile/OPUMLElement.extension.st +++ b/repository/OpenPonk-IssuesProfile/OPUMLElement.extension.st @@ -1,19 +1,19 @@ -Extension { #name : 'OPUMLElement' } - -{ #category : '*OP-IssuesProfile' } -OPUMLElement >> extension_IssueTag [ - ^ self tagAt: #extension_IssueTag ifAbsent: [ nil ] -] - -{ #category : '*OP-IssuesProfile' } -OPUMLElement >> extension_IssueTag: anIssueTag [ - | oldIssueTag | - oldIssueTag := self extension_IssueTag. - self tagAt: #extension_IssueTag put: anIssueTag. - OPUMLToOneLink - on: self - thisSelector: #extension_IssueTag - otherSelector: #base_Element - updateFrom: oldIssueTag - to: anIssueTag -] +Extension { #name : 'OPUMLElement' } + +{ #category : '*OpenPonk-IssuesProfile' } +OPUMLElement >> extension_IssueTag [ + ^ self tagAt: #extension_IssueTag ifAbsent: [ nil ] +] + +{ #category : '*OpenPonk-IssuesProfile' } +OPUMLElement >> extension_IssueTag: anIssueTag [ + | oldIssueTag | + oldIssueTag := self extension_IssueTag. + self tagAt: #extension_IssueTag put: anIssueTag. + OPUMLToOneLink + on: self + thisSelector: #extension_IssueTag + otherSelector: #base_Element + updateFrom: oldIssueTag + to: anIssueTag +] diff --git a/repository/OpenPonk-IssuesProfile/package.st b/repository/OpenPonk-IssuesProfile/package.st new file mode 100644 index 0000000..85a4046 --- /dev/null +++ b/repository/OpenPonk-IssuesProfile/package.st @@ -0,0 +1 @@ +Package { #name : 'OpenPonk-IssuesProfile' } diff --git a/repository/OP-UML-Profiles/OPUMLProfile.extension.st b/repository/OpenPonk-UML-Profiles/OPUMLProfile.extension.st similarity index 72% rename from repository/OP-UML-Profiles/OPUMLProfile.extension.st rename to repository/OpenPonk-UML-Profiles/OPUMLProfile.extension.st index 26c5435..a7b59e5 100644 --- a/repository/OP-UML-Profiles/OPUMLProfile.extension.st +++ b/repository/OpenPonk-UML-Profiles/OPUMLProfile.extension.st @@ -1,21 +1,21 @@ Extension { #name : 'OPUMLProfile' } -{ #category : '*OP-UML-Profiles' } +{ #category : '*OpenPonk-UML-Profiles' } OPUMLProfile >> implementationPackage [ ^ self tagAt: #implementationPackage ifAbsent: [ 'Unclassified' ] ] -{ #category : '*OP-UML-Profiles' } +{ #category : '*OpenPonk-UML-Profiles' } OPUMLProfile >> implementationPackage: aName [ self tagAt: #implementationPackage put: aName ] -{ #category : '*OP-UML-Profiles' } +{ #category : '*OpenPonk-UML-Profiles' } OPUMLProfile >> implementationPrefix [ ^ self tagAt: #implementationPrefix ifAbsent: [ 'XYZ' ] ] -{ #category : '*OP-UML-Profiles' } +{ #category : '*OpenPonk-UML-Profiles' } OPUMLProfile >> implementationPrefix: aName [ ^ self tagAt: #implementationPrefix put: aName ] diff --git a/repository/OP-UML-Profiles/OPUMLStereotype.extension.st b/repository/OpenPonk-UML-Profiles/OPUMLStereotype.extension.st similarity index 78% rename from repository/OP-UML-Profiles/OPUMLStereotype.extension.st rename to repository/OpenPonk-UML-Profiles/OPUMLStereotype.extension.st index 3e8a5a9..f70eb18 100644 --- a/repository/OP-UML-Profiles/OPUMLStereotype.extension.st +++ b/repository/OpenPonk-UML-Profiles/OPUMLStereotype.extension.st @@ -1,12 +1,12 @@ Extension { #name : 'OPUMLStereotype' } -{ #category : '*OP-UML-Profiles' } +{ #category : '*OpenPonk-UML-Profiles' } OPUMLStereotype >> implementationClass [ ^ Smalltalk at: self implementationClassName ] -{ #category : '*OP-UML-Profiles' } +{ #category : '*OpenPonk-UML-Profiles' } OPUMLStereotype >> implementationClassName [ ^ self tags diff --git a/repository/OP-UML-Profiles/OPUmlCustomProfile.class.st b/repository/OpenPonk-UML-Profiles/OPUmlCustomProfile.class.st similarity index 96% rename from repository/OP-UML-Profiles/OPUmlCustomProfile.class.st rename to repository/OpenPonk-UML-Profiles/OPUmlCustomProfile.class.st index fc7b2b6..e12f349 100644 --- a/repository/OP-UML-Profiles/OPUmlCustomProfile.class.st +++ b/repository/OpenPonk-UML-Profiles/OPUmlCustomProfile.class.st @@ -8,8 +8,8 @@ Class { 'profile', 'metaClassMap' ], - #category : 'OP-UML-Profiles', - #package : 'OP-UML-Profiles' + #category : 'OpenPonk-UML-Profiles', + #package : 'OpenPonk-UML-Profiles' } { #category : 'accessing' } diff --git a/repository/OpenPonk-UML-Profiles/package.st b/repository/OpenPonk-UML-Profiles/package.st new file mode 100644 index 0000000..3deb19b --- /dev/null +++ b/repository/OpenPonk-UML-Profiles/package.st @@ -0,0 +1 @@ +Package { #name : 'OpenPonk-UML-Profiles' }