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