X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.interop.update%2Fscl%2FInterop%2FUpdate.scl;h=f9974eae4eda3d29918f64ef99336cdd4c574322;hb=aa4da931fd1a692a877f90e4bc676640b09ba5c1;hp=40d61b53fd0061f92a0328c4ad7ba8db406650f5;hpb=8b773b548160d909d24acdb9277e08014f2d18e8;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 40d61b5..f9974ea 100644
--- a/org.simantics.interop.update/scl/Interop/Update.scl
+++ b/org.simantics.interop.update/scl/Interop/Update.scl
@@ -110,6 +110,9 @@ importJava "org.simantics.interop.update.model.PropertyChange" where
   @JavaName getSecond
   getSecond :: PropertyChange -> <Proc> Maybe Statement
   
+  @JavaName isVisible
+  pcVisible :: PropertyChange -> <Proc> Boolean
+  
 
 importJava "org.simantics.interop.update.model.UpdateNode" where
   data UpdateNode
@@ -129,6 +132,9 @@ importJava "org.simantics.interop.update.model.UpdateNode" where
   @JavaName getChildren
   getNodeChildren :: UpdateNode -> <Proc> [UpdateNode]
   
+  @JavaName isVisible
+  isNodeVisible :: UpdateNode -> <Proc> Boolean
+  
   
   
 importJava "org.simantics.interop.update.model.UpdateStatus" where
@@ -218,13 +224,12 @@ importJava "java.lang.Object" where
     data Object
     
     @JavaName getClass
-    getClass :: Object -> <Proc> Class
+    getClass :: Object -> <Proc> Class a
     
 importJava "java.lang.Class" where
-    data Class 
     
     @JavaName getName
-    getClassName :: Class -> <Proc> String
+    getClassName :: Class a -> <Proc> String
     
     @JavaName getSimpleName
-    getSimpleClassName :: Class -> <Proc> String
\ No newline at end of file
+    getSimpleClassName :: Class a -> <Proc> String