From 4e4e1a6afd61fb03feaba789d99bd24c0ce68e8c Mon Sep 17 00:00:00 2001
From: jsimomaa <jani.simomaa@gmail.com>
Date: Thu, 15 Feb 2018 10:54:00 +0200
Subject: [PATCH] setSystemProperty function to Simantics/Misc SCL-module

refs #7769

Change-Id: I6e1969bf09f0267b706242ad80b483fd11db140d
---
 bundles/org.simantics.modeling/scl/Simantics/Misc.scl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
 
-- 
2.43.2