X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FSimulation.scl;fp=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FSimulation.scl;h=e61b161ad18b2b54186a17498379228d2a274b38;hp=2a721ee21d69f873b024b9506466f262d64490d5;hb=599e0a37bfc3159ed450154c2a613a17def12fcb;hpb=2317b4651fb6c51f634074e9644aa056d1338ea1

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Simulation.scl b/bundles/org.simantics.modeling/scl/Simantics/Simulation.scl
index 2a721ee21..e61b161ad 100644
--- a/bundles/org.simantics.modeling/scl/Simantics/Simulation.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Simulation.scl
@@ -13,6 +13,11 @@ importJava "org.simantics.simulation.experiment.ExperimentUtil" where
     createExperimentRun :: Resource -> <WriteGraph> Resource
     createExperimentRunWithType :: Resource -> Resource -> <WriteGraph> Resource
     activateRun :: Resource -> <WriteGraph> ()
+
+activateExperimentAction :: Resource -> <Proc> ()
+activateExperimentAction experiment = do
+  syncWrite (\() -> activateExperiment experiment)
+  ()
     
 importJava "org.simantics.simulation.experiment.IExperiment" where
     data IExperiment