Merge commit '876ede6'

[simantics/platform.git] / bundles / org.simantics.modeling.ontology / graph / Modeling.pgraph

diff --git a/bundles/org.simantics.modeling.ontology/graph/Modeling.pgraph b/bundles/org.simantics.modeling.ontology/graph/Modeling.pgraph
index 1bd459db5b94c296171b02414bfdda76aba4f170..d026eb2b5a3982f6bf561f49056fe94268d165ad 100644 (file)
--- a/bundles/org.simantics.modeling.ontology/graph/Modeling.pgraph
+++ b/bundles/org.simantics.modeling.ontology/graph/Modeling.pgraph
@@ -121,7 +121,7 @@ MOD.ConnectionMappingSpecification <T L0.Entity
     // MOD.DiagramConnectionRelationToConnectionRelationC\r
     // MOD.DiagramConnectionRelationToComponentType\r
 MOD.ConnectionRelationToConnectionMappingSpecification <R L0.IsRelatedTo\r
-    L0.HasDomain DIA.Connector\r
+    L0.HasDomain STR.ConnectionRelation\r
     L0.HasRange MOD.ConnectionMappingSpecification\r
 MOD.NeedsConnectionMappingSpecification <R L0.IsRelatedTo : L0.Tag : L0.FunctionalRelation\r
     L0.HasDescription "Tells a connection relation that a diagram connection using it will require a DIA.Connector that has MOD.HasConnectionMappingSpecification statement attached to it if the used connection type has a MOD.ConnectionTypeToConnectionMappingSpecification specified. It guides connection creation."\r
@@ -298,11 +298,12 @@ MOD.ModelBrowser <T VIEW.Explorer
 \r
 MOD.PlainModelBrowser : MOD.ModelBrowser\r
 \r
+MOD.Functions.sclValue : L0.ExternalValue\r
+\r
 MOD.MonitorValue <T STR.MonitorValue\r
   @L0.assert L0.valueAccessor\r
     MOD.Functions.monitorValueAccessor : L0.ExternalValue\r
-  @L0.assert L0.ConvertsToValueWith\r
-    MOD.Functions.sclValue : L0.ExternalValue\r
+  @L0.assert L0.ConvertsToValueWith MOD.Functions.sclValue\r
   @L0.assert L0.SCLValue.environment\r
     _ : L0.SCLValue.Environment\r
       L0.SCLValue.Environment.moduleName "Simantics/All"\r
@@ -311,8 +312,7 @@ MOD.MonitorValue <T STR.MonitorValue
     MOD.Functions.monitorReadOnly : L0.Function\r
 \r
 MOD.SCLValue <T L0.SCLValue\r
-  @L0.assert L0.ConvertsToValueWith\r
-    MOD.Functions.sclValue : L0.ExternalValue\r
+  @L0.assert L0.ConvertsToValueWith MOD.Functions.sclValue\r
   /*@L0.assert L0.SCLValue.environment\r
     _ : L0.SCLValue.Environment\r
       L0.SCLValue.Environment.moduleName "Simantics/All"\r
@@ -501,5 +501,9 @@ MOD.editorContribution : L0.Template
                 L0.SCLValue.expression %canHandle\r
                 L0.HasValueType "Resource -> <ReadGraph> Boolean"\r
                 \r
+MOD.SVGTabContribution : SEL.SCLTabContribution\r
+  @MOD.scl SEL.SCLTabContribution.instantiate\r
+    "svgTabContribution"\r
+    "() -> <Proc> TabContribution"\r
 \r
       
\ No newline at end of file