bundles/org.simantics.modeling/scl/Simantics/Action.scl

   1 import "Simantics/Variables"
   2
   3 instantiateUnderAction :: Variable -> Resource -> <Proc> ()
   4 instantiateUnderAction ruleVariable context = do
   5    syncWrite (\x -> do
   6      typeToInstantiate = singleObject (represents $ parent ruleVariable) MOD.InstantiateUnder.HasType
   7      typeVariable = resourceVariable typeToInstantiate
   8      fn = typeVariable#methods#instantiateUnder :: Resource -> Resource -> <WriteGraph> Resource
   9      fn context typeToInstantiate)
  10    ()