]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - bundles/org.simantics.modeling/scl/Simantics/Entity.scl
Migrated source code from Simantics SVN
[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Entity.scl
diff --git a/bundles/org.simantics.modeling/scl/Simantics/Entity.scl b/bundles/org.simantics.modeling/scl/Simantics/Entity.scl
new file mode 100644 (file)
index 0000000..0857e00
--- /dev/null
@@ -0,0 +1,29 @@
+include "Simantics/DB"\r
+import "http://www.simantics.org/Layer0-1.1" as L0\r
+\r
+@deprecated\r
+toResource :: Resource -> Resource\r
+toResource = id\r
+\r
+@deprecated\r
+fromResource :: Resource -> Resource\r
+fromResource = id\r
+\r
+labelOf :: Resource -> <ReadGraph> String\r
+labelOf entity = relatedValue2 entity L0.HasLabel\r
+\r
+"""Renames an entity."""\r
+rename :: Resource -> String -> <ReadGraph,WriteGraph> ()\r
+rename entity newName = do\r
+    oldName = (nameOf entity)\r
+    claimRelatedValue entity L0.HasName newName\r
+    addCommentMetadata ("Renamed " + oldName + " to " + newName)\r
+\r
+importJava "org.simantics.db.layer0.util.RemoverUtil" where\r
+    """Removes a given entity."""\r
+    @JavaName remove\r
+    remove :: Resource -> <WriteGraph> ()\r
+\r
+@deprecated\r
+remove_ :: Resource -> <WriteGraph> ()\r
+remove_ = remove\r