X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling.ontology%2Fgraph%2FModelingViewpoint.pgraph;h=7e572df9f69e3aeb385fe98b5f4034bfaa0bd08d;hb=refs%2Fchanges%2F50%2F450%2F8;hp=c838c0a3648850a5fbb0793844e664577cd4fc07;hpb=c26409b1caf2f1e560d37c5befd11b442399c3fe;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph b/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph
index c838c0a36..7e572df9f 100644
--- a/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph
+++ b/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph
@@ -26,6 +26,9 @@ MOD.SCLLabelRule <T VP.ChildRule
 MOD.SCLAction <T ACT.Action
   --> MOD.SCLAction.action ==> "Resource -> <Proc> ()" <R L0.HasProperty : L0.FunctionalRelation 
 
+MOD.SCLDropAction <T ACT.Action
+  --> MOD.SCLDropAction.action ==> "Resource -> Dynamic -> Integer -> <Proc> ()" <R L0.HasProperty : L0.FunctionalRelation 
+
 MOD.SCLTest <T ACT.Action
   --> MOD.SCLTest.test ==> "Resource -> <ReadGraph> Boolean" <R L0.HasProperty : L0.FunctionalRelation 
 
@@ -369,6 +372,13 @@ MOD.sclAction : L0.Template
             L0.SCLValue.expression %expression
             L0.HasValueType "Resource -> <Proc> ()"
 
+MOD.sclDropAction : L0.Template
+    @template %action %expression
+        %action : MOD.SCLDropAction
+          MOD.SCLDropAction.action _ : MOD.SCLValue
+            L0.SCLValue.expression %expression
+            L0.HasValueType "Resource -> Dynamic -> Integer -> <Proc> ()"
+
 MOD.sclTest : L0.Template
     @template %subject %expression
         %subject : MOD.SCLTest
@@ -642,6 +652,13 @@ ACTIONS.NavigateToSubstructure
 ACTIONS.NewProceduralComponentType : ACT.Action
 ACTIONS.NewComponentType : ACT.Action
 
+MOD.InstantiateUnder <T MOD.SCLAction
+  >-- MOD.InstantiateUnder.HasType --> L0.Type <R L0.IsRelatedTo : L0.TotalFunction
+  @MOD.sclAssertion MOD.SCLAction.action "instantiateUnderAction self" "Resource -> <Proc> ()"
+
+ACTIONS.InstantiateUnder
+  @MOD.sclAction "instantiateUnderAction self"
+
 TESTS = MAC.Tests : L0.Library
 TESTS.IsNotPublished
   @MOD.sclTest "isNotPublished"