Set resources immutable

gitlab #369

Change-Id: Id1ddcc8253339ac7ab60f2772ab53d5c06547b19

diff --git a/bundles/org.simantics.db.common/src/org/simantics/db/common/utils/CommonDBUtils.java b/bundles/org.simantics.db.common/src/org/simantics/db/common/utils/CommonDBUtils.java
index dcd3939a4f2e64d73ed288a1856b471c1ab8fd46..747e43cf1a24f1e9b2fe0c34500c285894e501cf 100644 (file)
--- a/bundles/org.simantics.db.common/src/org/simantics/db/common/utils/CommonDBUtils.java
+++ b/bundles/org.simantics.db.common/src/org/simantics/db/common/utils/CommonDBUtils.java
@@ -318,6 +318,11 @@ public class CommonDBUtils {
        return xs.isClusterLoaded(clusterUID);
     }
     
        return xs.isClusterLoaded(clusterUID);
     }
     

+    public static void setImmutable(ReadGraph graph, Resource resource, boolean value) throws DatabaseException {
+        XSupport xs = graph.getService(XSupport.class);
+        xs.setImmutable(resource, value);
+    }
+

     public static Type getSCLType(ReadGraph graph, RuntimeEnvironment runtimeEnvironment, String typeText) throws DatabaseException {
         try {
             return Environments.getType(runtimeEnvironment.getEnvironment(), typeText);
     public static Type getSCLType(ReadGraph graph, RuntimeEnvironment runtimeEnvironment, String typeText) throws DatabaseException {
         try {
             return Environments.getType(runtimeEnvironment.getEnvironment(), typeText);

diff --git a/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl b/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
index f6d1453f08f484c6fbde645cd56177e4cd5ace25..eddcba75bbe074dcf19b268a1488296d05f9f048 100644 (file)
--- a/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
+++ b/bundles/org.simantics.scl.db/scl/Simantics/DBSupport.scl
@@ -9,6 +9,7 @@ importJava "org.simantics.db.common.utils.CommonDBUtils" where
     garbageResources :: <ReadGraph> [Resource]
     clusterUIDOfResource :: Resource -> <ReadGraph> ClusterUID
     isClusterLoaded :: ClusterUID -> <ReadGraph> Boolean
     garbageResources :: <ReadGraph> [Resource]
     clusterUIDOfResource :: Resource -> <ReadGraph> ClusterUID
     isClusterLoaded :: ClusterUID -> <ReadGraph> Boolean

+    setImmutable :: Resource -> Boolean -> <ReadGraph> ()

 
 importJava "org.simantics.scl.db.SCLFunctions" where
     collectClusters :: <Proc> ()
 
 importJava "org.simantics.scl.db.SCLFunctions" where
     collectClusters :: <Proc> ()