setSystemProperty function to Simantics/Misc SCL-module

[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Misc.scl

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Misc.scl b/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
index e3c7977155964bea6611bafe067df0d05f277211..8b76629928f2a3ffca982025af3378de13be89a3 100644 (file)
--- a/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
@@ -140,13 +140,20 @@ loop4 testScan testList found = do
 
 importJava "java.lang.System" where
     @JavaName "getProperty"
-    getSystemProperty :: String -> String
-    
+    getSystemProperty :: String -> Maybe String
+    @JavaName setProperty
+    setSystemProperty :: String -> String -> <Proc> String
+
 importJava "org.simantics.modeling.LifeCycleContext" where
     data LifeCycleContext
 
 importJava "org.simantics.modeling.ModelingUtils" where
     trackDependencies :: <Proc> ()
     untrackDependencies :: <Proc> ()
-    
+    trackOntologicalRequirements :: <Proc> ()
+    untrackOntologicalRequirements :: <Proc> ()
+
+importJava "org.simantics.modeling.scl.SCLDependencyChangeListener" where
+    @JavaName "create"
+    createDependencyChangeListener :: (<Proc> Boolean) -> (MetadataI -> DependencyChanges -> <ReadGraph,Proc> ()) -> ChangeListener
     
\ No newline at end of file