2 import "Simantics/Variables"
3 import "JavaBuiltin" as Java
5 importJava "org.simantics.document.server.io.IConsole" where
7 addMessage :: IConsole -> String -> <Proc> ()
8 sendEvent :: IConsole -> String -> String -> Vector Dynamic -> <Proc> ()
10 importJava "org.simantics.document.server.io.IDocument" where
12 elementIdToObjectId :: IDocument -> String -> <Proc> String
13 getDocumentURI :: IDocument -> <Proc> String
14 getSessionGUID :: IDocument -> <Proc> String
16 importJava "org.simantics.document.server.io.ITableCell" where
19 importJava "org.simantics.document.server.io.ITreeTableCell" where
22 importJava "org.simantics.document.server.io.IFont" where
26 fontFamily :: IFont -> <Proc> Maybe String
28 fontStyle :: IFont -> <Proc> Maybe String
30 fontHeight :: IFont -> <Proc> Integer
32 importJava "org.simantics.document.server.io.IColor" where
35 importJava "org.simantics.modeling.services.ComponentNamingStrategy" where
36 data ComponentNamingStrategy
38 importJava "org.simantics.document.server.handler.EventHandler" where
41 importJava "org.simantics.document.server.handler.AbstractEventHandler" where
42 data AbstractEventHandler
44 importJava "org.simantics.document.server.bean.Command" where
47 importJava "org.simantics.document.server.bean.DataDefinition" where
50 importJava "org.simantics.document.server.io.CommandContext" where
54 possibleString :: CommandContext -> String -> Maybe String
57 possibleValue :: CommandContext -> String -> Maybe a
60 justValue :: CommandContext -> String -> a
63 containsKey :: CommandContext -> String -> Boolean
65 getKeys :: CommandContext -> [String]
67 importJava "org.simantics.document.server.io.CommandContextMutable" where
68 data CommandContextMutable
71 putString :: CommandContextMutable -> String -> String -> <Proc> CommandContextMutable
73 putValue :: CommandContextMutable -> String -> a -> <Proc> CommandContextMutable
75 merge :: CommandContextMutable -> CommandContext -> <Proc> CommandContextMutable
77 importJava "org.simantics.document.server.io.CommandContextImpl" where
80 commandContext :: () -> CommandContextMutable
82 instance Coercible CommandContextMutable CommandContext where
83 coerce = Java.unsafeCoerce
85 cloneCommandContext :: CommandContext -> <Proc> CommandContextMutable
86 cloneCommandContext context = merge (commandContext ()) context
88 importJava "org.simantics.document.server.io.CommandResult" where
91 importJava "org.simantics.document.server.serverResponse.ServerResponse" where
94 commandResult :: Integer -> String -> CommandContextMutable -> CommandResult
96 importJava "org.simantics.document.server.Functions" where
99 putTuple :: CommandContextMutable -> String -> a -> CommandContextMutable
102 getTuples :: CommandContext -> String -> [a]
104 printContext :: CommandContext -> String
106 commandList :: Variable -> <ReadGraph> [Command]
108 dataDefinitions :: Variable -> <ReadGraph> [DataDefinition]
110 emptyOnClick :: () -> <ReadGraph> AbstractEventHandler
112 writeEventHandler :: Variable -> (Variable -> (String -> Maybe String) -> <WriteGraph> String) -> <ReadGraph> AbstractEventHandler
113 readEventHandler :: Variable -> (Variable -> (String -> Maybe String) -> <ReadGraph> String) -> <ReadGraph> AbstractEventHandler
114 eventHandler :: ((String -> Maybe String) -> String) -> <ReadGraph> AbstractEventHandler
116 readEventHandler2 :: (CommandContext -> <ReadGraph> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
117 writeEventHandler2 :: (CommandContext -> <WriteGraph> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
118 eventHandler2 :: (CommandContext -> Maybe CommandResult) -> <ReadGraph> AbstractEventHandler
120 responseHandler :: Variable -> String -> <ReadGraph> AbstractEventHandler
122 sclStateVariable :: Variable -> Variable -> String -> <ReadGraph> Variable
123 sclStateValueOrDefault :: Variable -> Variable -> String -> a -> <ReadGraph> a
124 setSclStateValue :: Variable -> Variable -> String -> a -> <WriteGraph> ()
126 projectComponentState :: Variable -> String -> a -> <ReadGraph> a
127 setProjectComponentState :: Variable -> String -> a -> <WriteGraph> ()
129 documentModelContribution :: Resource -> <ReadGraph> [Variable]
130 documentModelContributionLabel :: Variable -> <ReadGraph> String
132 @JavaName getPropertyValueCached
133 propertyValueCached_ :: Variable -> String -> Binding a -> <ReadGraph> a
135 stateVariable :: Variable -> <ReadGraph> Variable
137 propertyValueCached :: Serializable a => Typeable a => Variable -> String -> <ReadGraph> a
138 propertyValueCached var prop = propertyValueCached_ var prop binding
140 displayValue :: Variable -> String -> <ReadGraph> String
141 displayValue var str = propertyValue (property var str) "HasDisplayValue"
143 displayValue0 :: Variable -> <ReadGraph> String
144 displayValue0 var = propertyValue var "HasDisplayValue"
146 consoleLog :: Variable -> String -> <ReadGraph> ()
147 consoleLog state message = do
148 console = state#console
149 runProc $ addMessage console message
151 contextDocument :: CommandContext -> <Proc> IDocument
152 contextDocument ctx = justValue ctx "__document__"