bundles/org.simantics.tests.modelled.ui/scl/Simantics/TestsUI.scl

   1 include "Simantics/Tests"
   2
   3 createSTSTestAction :: Resource -> <Proc> ()
   4 createSTSTestAction res = do
   5   syncWrite (\() -> createSTSTest res)
   6   ()
   7
   8 importJava "org.simantics.tests.modelled.ui.TestsUIUtils" where
   9     runSTSTestAction :: Resource -> <Proc> ()
  10
  11 createSTSSuiteAction :: Resource -> <Proc> ()
  12 createSTSSuiteAction res = do
  13   syncWrite (\() -> createSTSSuite res)
  14   ()
  15
  16 createSTSVariableAction :: Resource -> <Proc> ()
  17 createSTSVariableAction res = do
  18   syncWrite(\() -> createSTSVariable res)
  19   ()