X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.tests.modelled.ui%2Fscl%2FSimantics%2FTestsUI.scl;h=0b99fe784fa2239470ef3f93f80b59f5e2ae6bcf;hp=d834c36756fe5a8d3ab254dc0ff34b608af9d23f;hb=93e70f713558f9826b78ad54929f80e52d8c824b;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;ds=sidebyside

diff --git a/bundles/org.simantics.tests.modelled.ui/scl/Simantics/TestsUI.scl b/bundles/org.simantics.tests.modelled.ui/scl/Simantics/TestsUI.scl
index d834c3675..0b99fe784 100644
--- a/bundles/org.simantics.tests.modelled.ui/scl/Simantics/TestsUI.scl
+++ b/bundles/org.simantics.tests.modelled.ui/scl/Simantics/TestsUI.scl
@@ -7,8 +7,14 @@ createSTSTestAction res = do
 
 importJava "org.simantics.tests.modelled.ui.TestsUIUtils" where
     runSTSTestAction :: Resource -> <Proc> ()
+    ignoreSTSTestAction :: [Resource] -> <Proc> ()
     
 createSTSSuiteAction :: Resource -> <Proc> ()
 createSTSSuiteAction res = do
   syncWrite (\() -> createSTSSuite res)
+  ()
+
+createSTSVariableAction :: Resource -> <Proc> ()
+createSTSVariableAction res = do
+  syncWrite(\() -> createSTSVariable res)
   ()
\ No newline at end of file