X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FAction.scl;fp=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FAction.scl;h=102012ecf6baa0f24f776652ad95980ada737c6e;hb=277ddb17bc33a7c0b5c352f80bbc2605acaee50d;hp=0000000000000000000000000000000000000000;hpb=ea17057d1c483f8a2bcb765527e45cf4fba36df5;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Action.scl b/bundles/org.simantics.modeling/scl/Simantics/Action.scl
new file mode 100644
index 000000000..102012ecf
--- /dev/null
+++ b/bundles/org.simantics.modeling/scl/Simantics/Action.scl
@@ -0,0 +1,10 @@
+import "Simantics/Variables"
+   
+instantiateUnderAction :: Variable -> Resource -> <Proc> ()
+instantiateUnderAction ruleVariable context = do
+   syncWrite (\x -> do
+     typeToInstantiate = singleObject (represents $ parent ruleVariable) MOD.InstantiateUnder.HasType
+     typeVariable = resourceVariable typeToInstantiate
+     fn = typeVariable#methods#instantiateUnder :: Resource -> Resource -> <WriteGraph> Resource
+     fn context typeToInstantiate)
+   ()
\ No newline at end of file