1 import "Simantics/DB"
\r
2 import "Simantics/Variables"
\r
4 importJava "org.simantics.document.server.io.IConsole" where
\r
6 addMessage :: IConsole -> String -> <Proc> ()
\r
8 importJava "org.simantics.document.server.io.IDocument" where
\r
10 elementIdToObjectId :: IDocument -> String -> <Proc> String
\r
11 getDocumentURI :: IDocument -> <Proc> String
\r
12 getSessionGUID :: IDocument -> <Proc> String
\r
14 importJava "org.simantics.document.server.io.ITableCell" where
\r
17 importJava "org.simantics.document.server.io.ITreeTableCell" where
\r
20 importJava "org.simantics.document.server.io.IFont" where
\r
23 importJava "org.simantics.document.server.io.IColor" where
\r
26 importJava "org.simantics.modeling.services.ComponentNamingStrategy" where
\r
27 data ComponentNamingStrategy
\r
29 importJava "org.simantics.document.server.handler.EventHandler" where
\r
32 importJava "org.simantics.document.server.handler.AbstractEventHandler" where
\r
33 data AbstractEventHandler
\r
35 importJava "org.simantics.document.server.bean.Command" where
\r
38 importJava "org.simantics.document.server.bean.DataDefinition" where
\r
41 importJava "org.simantics.document.server.io.CommandContext" where
\r
45 possibleString :: CommandContext -> String -> Maybe String
\r
48 possibleValue :: CommandContext -> String -> Maybe a
\r
51 justValue :: CommandContext -> String -> a
\r
53 @JavaName containsKey
\r
54 containsKey :: CommandContext -> String -> Boolean
\r
56 getKeys :: CommandContext -> [String]
\r
58 importJava "org.simantics.document.server.io.CommandContextMutable" where
\r
59 data CommandContextMutable
\r
62 putString :: CommandContextMutable -> String -> String -> <Proc> CommandContextMutable
\r
64 putValue :: CommandContextMutable -> String -> a -> <Proc> CommandContextMutable
\r
66 importJava "org.simantics.document.server.io.CommandContextImpl" where
\r
69 commandContext :: () -> CommandContextMutable
\r
71 importJava "org.simantics.document.server.io.CommandResult" where
\r
74 importJava "org.simantics.document.server.serverResponse.ServerResponse" where
\r
77 commandResult :: Integer -> String -> CommandContextMutable -> CommandResult
\r
79 importJava "org.simantics.document.server.Functions" where
\r
82 putTuple :: CommandContextMutable -> String -> a -> CommandContextMutable
\r
85 getTuples :: CommandContext -> String -> [a]
\r
87 printContext :: CommandContext -> String
\r
89 commandList :: Variable -> <ReadGraph> [Command]
\r
91 dataDefinitions :: Variable -> <ReadGraph> [DataDefinition]
\r
93 emptyOnClick :: () -> <ReadGraph> AbstractEventHandler
\r
95 writeEventHandler :: Variable -> (Variable -> (String -> Maybe String) -> <WriteGraph> String) -> <ReadGraph> AbstractEventHandler
\r
96 readEventHandler :: Variable -> (Variable -> (String -> Maybe String) -> <ReadGraph> String) -> <ReadGraph> AbstractEventHandler
\r
97 eventHandler :: ((String -> Maybe String) -> String) -> <ReadGraph> AbstractEventHandler
\r
99 readEventHandler2 :: (CommandContext -> <ReadGraph> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
\r
100 writeEventHandler2 :: (CommandContext -> <WriteGraph> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
\r
101 eventHandler2 :: (CommandContext -> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
\r
103 responseHandler :: Variable -> String -> <ReadGraph> AbstractEventHandler
\r
105 sclStateVariable :: Variable -> Variable -> String -> <ReadGraph> Variable
\r
106 sclStateValueOrDefault :: Variable -> Variable -> String -> a -> <ReadGraph> a
\r
107 setSclStateValue :: Variable -> Variable -> String -> a -> <WriteGraph> ()
\r
109 projectComponentState :: Variable -> String -> a -> <ReadGraph> a
\r
110 setProjectComponentState :: Variable -> String -> a -> <WriteGraph> ()
\r
112 documentModelContribution :: Resource -> <ReadGraph> [Variable]
\r
113 documentModelContributionLabel :: Variable -> <ReadGraph> String
\r
115 @JavaName getPropertyValueCached
\r
116 propertyValueCached_ :: Variable -> String -> Binding a -> <ReadGraph> a
\r
118 propertyValueCached :: Serializable a => Typeable a => Variable -> String -> <ReadGraph> a
\r
119 propertyValueCached var prop = propertyValueCached_ var prop binding
\r
121 displayValue :: Variable -> String -> <ReadGraph> String
\r
122 displayValue var str = propertyValue (property var str) "HasDisplayValue"
\r
124 displayValue0 :: Variable -> <ReadGraph> String
\r
125 displayValue0 var = propertyValue var "HasDisplayValue"
\r
127 consoleLog :: Variable -> String -> <ReadGraph> ()
\r
128 consoleLog state message = do
\r
129 console = state#console
\r
130 runProc $ addMessage console message
\r
132 contextDocument :: CommandContext -> <Proc> IDocument
\r
133 contextDocument ctx = justValue ctx "__document__"
\r