bundles/org.simantics.modeling/scl/Simantics/Entity.scl

   1 include "Simantics/DB"\r
   2 import "http://www.simantics.org/Layer0-1.1" as L0\r
   3 \r
   4 @deprecated\r
   5 toResource :: Resource -> Resource\r
   6 toResource = id\r
   7 \r
   8 @deprecated\r
   9 fromResource :: Resource -> Resource\r
  10 fromResource = id\r
  11 \r
  12 labelOf :: Resource -> <ReadGraph> String\r
  13 labelOf entity = relatedValue2 entity L0.HasLabel\r
  14 \r
  15 """Renames an entity."""\r
  16 rename :: Resource -> String -> <ReadGraph,WriteGraph> ()\r
  17 rename entity newName = do\r
  18     oldName = (nameOf entity)\r
  19     claimRelatedValue entity L0.HasName newName\r
  20     addCommentMetadata ("Renamed " + oldName + " to " + newName)\r
  21 \r
  22 importJava "org.simantics.db.layer0.util.RemoverUtil" where\r
  23     """Removes a given entity."""\r
  24     @JavaName remove\r
  25     remove :: Resource -> <WriteGraph> ()\r
  26 \r
  27 @deprecated\r
  28 remove_ :: Resource -> <WriteGraph> ()\r
  29 remove_ = remove\r