bundles/org.simantics.document.swt.core/scl/SWT/All.scl

   1 import "Simantics/DB"\r
   2 import "Simantics/DB" as DB\r
   3 import "Simantics/Variables"\r
   4 import "Simantics/WorkbenchSelection"\r
   5 include "Simantics/SCL"\r
   6 include "Document/All"\r
   7 include "SWT/Types"\r
   8 \r
   9 importJava "org.simantics.document.swt.core.scl.SCL" where\r
  10     /*eventHandler :: ((String -> Maybe String) -> <WriteGraph> ()) -> EventHandler*/\r
  11     decodeWSES :: Maybe String -> [WorkbenchSelectionElement]\r
  12     wseResource :: WorkbenchSelectionElement -> <ReadGraph> Resource\r
  13 \r
  14 contributionType :: Variable -> <ReadGraph> String\r
  15 contributionType var = DB.nameOf $ singleObject (resource $ uri $ variableParent var) (resource "http://www.simantics.org/SelectionView-1.2/AbstractTypedVariableTabContribution/HasType")\r
  16 \r
  17 inputVariable :: Variable -> <ReadGraph> Variable\r
  18 inputVariable var = propertyValue (variableParent var) "input"\r
  19 \r
  20 asComboList :: [Resource] -> <ReadGraph> [String]\r
  21 asComboList resources = map (\r -> DB.nameOf r) resources\r
  22    \r
  23 importJava "org.simantics.document.swt.core.scl.SCL" where\r
  24     propertyGetter :: Variable -> <ReadGraph> String\r
  25 \r
  26     getURI :: Variable -> <ReadGraph> String\r
  27 \r
  28     propertyDisplayValue :: Variable -> String -> <ReadGraph> String\r
  29 \r
  30     propertyValueSetter :: Variable -> String -> <ReadGraph> AbstractEventHandler\r
  31    \r
  32