Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.document.swt.core / scl / SWT / All.scl

diff --git a/bundles/org.simantics.document.swt.core/scl/SWT/All.scl b/bundles/org.simantics.document.swt.core/scl/SWT/All.scl
new file mode 100644 (file)
index 0000000..69383db
--- /dev/null
+++ b/bundles/org.simantics.document.swt.core/scl/SWT/All.scl
@@ -0,0 +1,32 @@
+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