X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FRename.scl;h=a597368f10a8ec83ccd1f710e7d01966664442f1;hb=refs%2Fheads%2Frelease%2F1.43.1;hp=cb048e037ff672cb87841f22bd53adab9316866f;hpb=c26409b1caf2f1e560d37c5befd11b442399c3fe;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Rename.scl b/bundles/org.simantics.modeling/scl/Simantics/Rename.scl
index cb048e037..a597368f1 100644
--- 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,7 +27,7 @@ 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
 """
@@ -35,18 +36,6 @@ renameMBNode :: Resource -> String -> <WriteGraph> String
 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
     """