+import "Simantics/DB"\r
+import "Simantics/DB" as DB\r
+import "Simantics/Variables"\r
+import "Simantics/WorkbenchSelection"\r
+include "Simantics/SCL"\r
+include "Document/All"\r
+include "SWT/Types"\r
+\r
+importJava "org.simantics.document.swt.core.scl.SCL" where\r
+ /*eventHandler :: ((String -> Maybe String) -> <WriteGraph> ()) -> EventHandler*/\r
+ decodeWSES :: Maybe String -> [WorkbenchSelectionElement]\r
+ wseResource :: WorkbenchSelectionElement -> <ReadGraph> Resource\r
+\r
+contributionType :: Variable -> <ReadGraph> String\r
+contributionType var = DB.nameOf $ singleObject (resource $ uri $ variableParent var) (resource "http://www.simantics.org/SelectionView-1.2/AbstractTypedVariableTabContribution/HasType")\r
+\r
+inputVariable :: Variable -> <ReadGraph> Variable\r
+inputVariable var = propertyValue (variableParent var) "input"\r
+\r
+asComboList :: [Resource] -> <ReadGraph> [String]\r
+asComboList resources = map (\r -> DB.nameOf r) resources\r
+ \r
+importJava "org.simantics.document.swt.core.scl.SCL" where\r
+ propertyGetter :: Variable -> <ReadGraph> String\r
+\r
+ getURI :: Variable -> <ReadGraph> String\r
+\r
+ propertyDisplayValue :: Variable -> String -> <ReadGraph> String\r
+\r
+ propertyValueSetter :: Variable -> String -> <ReadGraph> AbstractEventHandler\r
+ \r
+
\ No newline at end of file