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