]> gerrit.simantics Code Review - simantics/platform.git/blob - bundles/org.simantics.document.swt.core/scl/SWT/All.scl
Fix poor syntax in search result HMTL generation.
[simantics/platform.git] / 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     columnsBean :: Resource -> <ReadGraph> ColumnsBean
33     columnBeans :: ColumnsBean -> [ColumnBean]
34
35     columnBeanKey :: ColumnBean -> String
36     columnBeanLabel :: ColumnBean -> String