X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FRename.scl;fp=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FRename.scl;h=a597368f10a8ec83ccd1f710e7d01966664442f1;hb=570093476d8cb3d787cad1d1eff8f50e5b667dc1;hp=e7667ed877a59ab1bb841341a44f3c1039e110ab;hpb=b08fe9b9f595952b44db800abd7682232342c15f;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 e7667ed87..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 @@ -35,18 +36,6 @@ renameMBNode :: Resource -> String -> 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 -> String @JavaName getSafeName """