X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling.ontology%2Fgraph%2FModeling.pgraph;h=a94c64f2df0c3f95b1e7d133e3f2a021af5bce3e;hb=6f4a838ed439ed3a5f5f51e1837e9adf45c98eef;hp=1bd459db5b94c296171b02414bfdda76aba4f170;hpb=969bd23cab98a79ca9101af33334000879fb60c5;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling.ontology/graph/Modeling.pgraph b/bundles/org.simantics.modeling.ontology/graph/Modeling.pgraph
index 1bd459db5..a94c64f2d 100644
--- 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
     // MOD.DiagramConnectionRelationToComponentType
 MOD.ConnectionRelationToConnectionMappingSpecification <R L0.IsRelatedTo
-    L0.HasDomain DIA.Connector
+    L0.HasDomain STR.ConnectionRelation
     L0.HasRange MOD.ConnectionMappingSpecification
 MOD.NeedsConnectionMappingSpecification <R L0.IsRelatedTo : L0.Tag : L0.FunctionalRelation
     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."
@@ -298,11 +298,12 @@ MOD.ModelBrowser <T VIEW.Explorer
 
 MOD.PlainModelBrowser : MOD.ModelBrowser
 
+MOD.Functions.sclValue : L0.ExternalValue
+
 MOD.MonitorValue <T STR.MonitorValue
   @L0.assert L0.valueAccessor
     MOD.Functions.monitorValueAccessor : L0.ExternalValue
-  @L0.assert L0.ConvertsToValueWith
-    MOD.Functions.sclValue : L0.ExternalValue
+  @L0.assert L0.ConvertsToValueWith MOD.Functions.sclValue
   @L0.assert L0.SCLValue.environment
     _ : L0.SCLValue.Environment
       L0.SCLValue.Environment.moduleName "Simantics/All"
@@ -311,8 +312,7 @@ MOD.MonitorValue <T STR.MonitorValue
     MOD.Functions.monitorReadOnly : L0.Function
 
 MOD.SCLValue <T L0.SCLValue
-  @L0.assert L0.ConvertsToValueWith
-    MOD.Functions.sclValue : L0.ExternalValue
+  @L0.assert L0.ConvertsToValueWith MOD.Functions.sclValue
   /*@L0.assert L0.SCLValue.environment
     _ : L0.SCLValue.Environment
       L0.SCLValue.Environment.moduleName "Simantics/All"