Merge "Some SCL functions to control graphical debugger"

diff --git a/bundles/org.simantics.databoard/src/org/simantics/databoard/binding/impl/ObjectVariantBinding.java b/bundles/org.simantics.databoard/src/org/simantics/databoard/binding/impl/ObjectVariantBinding.java
index edea4d36008d11519be8515ff491b35b2b4b56c0..45f3ae8f058c8f4a20aa9d7604a15bf0e6f91932 100644 (file)
--- a/bundles/org.simantics.databoard/src/org/simantics/databoard/binding/impl/ObjectVariantBinding.java
+++ b/bundles/org.simantics.databoard/src/org/simantics/databoard/binding/impl/ObjectVariantBinding.java
@@ -11,6 +11,7 @@
  *******************************************************************************/
 package org.simantics.databoard.binding.impl;
 
+import java.util.Objects;
 import java.util.Set;
 
 import org.simantics.databoard.adapter.AdaptException;
@@ -191,4 +192,9 @@ public class ObjectVariantBinding  extends VariantBinding {
                ObjectVariantBinding o = (ObjectVariantBinding)obj;
                return super.baseEquals( obj ) && o.adapterFactory == adapterFactory && o.bindingFactory == bindingFactory;
        }
+       
+       @Override
+       public boolean equals(Object o1, Object o2) {
+               return Objects.equals(o1, o2);
+       }
 }

diff --git a/bundles/org.simantics.databoard/src/org/simantics/databoard/util/DataValueUtil.java b/bundles/org.simantics.databoard/src/org/simantics/databoard/util/DataValueUtil.java
index c4e41c6dab83be32fa73be59288310df80eb967b..89b167ad9e8664f95dcd42a005b73e2397709cbc 100644 (file)
--- a/bundles/org.simantics.databoard/src/org/simantics/databoard/util/DataValueUtil.java
+++ b/bundles/org.simantics.databoard/src/org/simantics/databoard/util/DataValueUtil.java
@@ -110,7 +110,7 @@ public class DataValueUtil {
        // Not implemented yet
        if (b1 == b2) {
                try {
-                       return b1.compare(o1, o2) == 0;
+                       return b1.equals(o1, o2);
                } catch (RuntimeBindingException e) {
                        throw e.getCause();
                }

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Misc.scl b/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
index e334852ab4dfdeb68241daf51273b977227e806c..1aed9d43eacfda41b6f63be5dce29dc3ad52f0bf 100644 (file)
--- a/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
@@ -119,6 +119,8 @@ importJava "java.lang.System" where
     getSystemProperty :: String -> Maybe String
     @JavaName setProperty
     setSystemProperty :: String -> String -> <Proc> String
+    
+    currentTimeMillis :: Long
 
 importJava "org.simantics.modeling.LifeCycleContext" where
     data LifeCycleContext