X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.interop.update%2Fscl%2FInterop%2FUpdate.scl;fp=org.simantics.interop.update%2Fscl%2FInterop%2FUpdate.scl;h=06e778540c47b40830c77ecb527cba92074bde60;hb=82a773fbfa81a3e40b10272526eee52324f2e8d2;hp=e04cb34c0879fcad8dcdc84e2a45d95e409ca96f;hpb=ca99df4266f28ae07fd4c30edb2831da65b79ffd;p=simantics%2Finterop.git

diff --git a/org.simantics.interop.update/scl/Interop/Update.scl b/org.simantics.interop.update/scl/Interop/Update.scl
index e04cb34..06e7785 100644
--- a/org.simantics.interop.update/scl/Interop/Update.scl
+++ b/org.simantics.interop.update/scl/Interop/Update.scl
@@ -26,6 +26,9 @@ importJava "org.simantics.interop.update.model.UpdateTree" where
   @JavaName getRootNode
   getRootNode :: UpdateTree -> <Proc> UpdateNode
   
+  @JavaName getNode
+  getNode :: UpdateTree -> Resource -> <Proc> Maybe UpdateNode
+  
 importJava "org.simantics.interop.update.model.UpdateList" where
   data UpdateList
   
@@ -114,6 +117,9 @@ importJava "org.simantics.interop.update.model.UpdateOp" where
 importJava "org.simantics.utils.datastructures.Pair" where
   data Pair
   
+  @JavaName "<init>"
+  createPair :: Maybe a -> Maybe b -> <Proc> Pair
+  
   @JavaName first
   getFirst :: Pair -> <Proc> Maybe a