Merge "Re-export Simantics/DB/findFreshName from Rename" into release/1.43.1

[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Rename.scl

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Rename.scl b/bundles/org.simantics.modeling/scl/Simantics/Rename.scl
index 8199a000efa7dfc6b09b76e4204d993870861052..a597368f10a8ec83ccd1f710e7d01966664442f1 100644 (file)
--- a/bundles/org.simantics.modeling/scl/Simantics/Rename.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Rename.scl
@@ -1,4 +1,5 @@
 import "Simantics/Entity" hiding (findFreshName)
+include "Simantics/DB" (findFreshName)
 
 importJava "org.simantics.modeling.Rename" where
     @JavaName renameNode
@@ -11,7 +12,7 @@ importJava "org.simantics.modeling.Rename" where
     Example:
     
         > renameNode resource "NewName"
-        "Succesfully renamed oldName to NewName"
+        "Successfully renamed oldName to NewName"
         
     or error if failed
     """
@@ -26,27 +27,15 @@ Renames the given `entity` with the given `newName` and returns
 Example:
 
     > renameMBNode entity "NewName"
-    "Succesfully renamed oldName to NewName"
+    "Successfully renamed oldName to NewName"
     
 or error if failed
 """
+@deprecated "This function is equivalent to renameNode."
 renameMBNode :: Resource -> String -> <WriteGraph> String
-renameMBNode entity newname = do
-    renameNode (toResource entity) newname
+renameMBNode entity newname = renameNode entity newname
 
 importJava "org.simantics.db.common.utils.NameUtils" where
-    @JavaName findFreshName
-    """
-        findFreshName name container
-        
-    Finds fresh and unused name with proposition `name` under the given `container`
-    and returns the freshName
-    
-    Example:
-    
-        freshName = findFreshName "Model" currentProject ()
-    """
-    findFreshName :: String -> Resource -> <ReadGraph> String
     
     @JavaName getSafeName
     """