From: jsimomaa <jani.simomaa@gmail.com>
Date: Thu, 15 Feb 2018 08:54:00 +0000 (+0200)
Subject: setSystemProperty function to Simantics/Misc SCL-module
X-Git-Tag: v1.43.0~136^2~590
X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=commitdiff_plain;h=refs%2Fchanges%2F65%2F1465%2F2;p=simantics%2Fplatform.git

setSystemProperty function to Simantics/Misc SCL-module

refs #7769

Change-Id: I6e1969bf09f0267b706242ad80b483fd11db140d
---

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Misc.scl b/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
index 945e913a6..8b7662992 100644
--- a/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Misc.scl
@@ -141,7 +141,9 @@ loop4 testScan testList found = do
 importJava "java.lang.System" where
     @JavaName "getProperty"
     getSystemProperty :: String -> Maybe String
-    
+    @JavaName setProperty
+    setSystemProperty :: String -> String -> <Proc> String
+
 importJava "org.simantics.modeling.LifeCycleContext" where
     data LifeCycleContext