X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.document.swt.core%2Fscl%2FSWT%2FAll.scl;fp=bundles%2Forg.simantics.document.swt.core%2Fscl%2FSWT%2FAll.scl;h=69383dbdbdeea03a615fdbd0a158e1be992f21f7;hb=969bd23cab98a79ca9101af33334000879fb60c5;hp=0000000000000000000000000000000000000000;hpb=866dba5cd5a3929bbeae85991796acb212338a08;p=simantics%2Fplatform.git

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
index 000000000..69383dbdb
--- /dev/null
+++ b/bundles/org.simantics.document.swt.core/scl/SWT/All.scl
@@ -0,0 +1,32 @@
+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