X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FSCL.scl;h=05fbc0ee21af000cfe89cd769532796185956f3a;hb=d2897ed06374eee4d91ba495c71c47eef370c52e;hp=32db0f4bc6545cca456aaa697aa49477aafe1ac3;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling/scl/Simantics/SCL.scl b/bundles/org.simantics.modeling/scl/Simantics/SCL.scl
index 32db0f4bc..05fbc0ee2 100644
--- a/bundles/org.simantics.modeling/scl/Simantics/SCL.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/SCL.scl
@@ -12,14 +12,13 @@ importJava "org.simantics.scl.ui.editor.TextAndErrors" where
     createTextAndErrors :: String -> [CompilationError] -> TextAndErrors
 
 createSCLModuleAction :: Resource -> <Proc> ()
-createSCLModuleAction res = do
-  syncWrite (\() -> createSCLModuleDefault res)
-  ()
+createSCLModuleAction res = ignore $ syncWrite (\() -> createSCLModuleDefault res)
+
+createSCLScriptAction :: Resource -> <Proc> ()
+createSCLScriptAction res = ignore $ syncWrite (\() -> createSCLScriptDefault res)
 
 createPGraphAction :: Resource -> <Proc> ()
-createPGraphAction res = do
-  syncWrite (\() -> createPGraphDefault res)
-  ()
+createPGraphAction res = ignore $ syncWrite (\() -> createPGraphDefault res)
 
 createSCLValueIndependent :: Resource -> String -> <WriteGraph> Resource
 createSCLValueIndependent valueType expression = do
@@ -41,8 +40,11 @@ setExpression self expression = do
 
 importJava "org.simantics.modeling.ModelingUtils" where
     createSCLModuleDefault :: Resource -> <WriteGraph> ()
+    createSCLScriptDefault :: Resource -> <WriteGraph> ()
     createPGraphDefault :: Resource -> <WriteGraph> ()
     createSCLModule :: Resource -> String -> <WriteGraph> ()
+    createSCLScript :: Resource -> String -> <WriteGraph> ()
+    createPGraph :: Resource -> String -> <WriteGraph> ()
 
 effect SCL 
     "scl"