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

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