import "Simantics/DB"\r
import "Simantics/Variables"\r
+import "JavaBuiltin" as Java\r
\r
importJava "org.simantics.document.server.io.IConsole" where\r
data IConsole\r
addMessage :: IConsole -> String -> <Proc> ()\r
+ sendEvent :: IConsole -> String -> String -> Vector Dynamic -> <Proc> ()\r
\r
importJava "org.simantics.document.server.io.IDocument" where\r
data IDocument\r
importJava "org.simantics.document.server.io.ITableCell" where\r
data ITableCell\r
\r
+importJava "org.simantics.document.server.io.ITreeTableCell" where\r
+ data ITreeTableCell\r
+\r
importJava "org.simantics.document.server.io.IFont" where\r
data IFont\r
\r
data CommandContextMutable\r
\r
@JavaName putString\r
- putString :: CommandContextMutable -> String -> String -> CommandContextMutable\r
+ putString :: CommandContextMutable -> String -> String -> <Proc> CommandContextMutable\r
\r
- putValue :: CommandContextMutable -> String -> a -> CommandContextMutable\r
+ putValue :: CommandContextMutable -> String -> a -> <Proc> CommandContextMutable\r
+\r
+ merge :: CommandContextMutable -> CommandContext -> <Proc> CommandContextMutable \r
\r
importJava "org.simantics.document.server.io.CommandContextImpl" where\r
\r
@JavaName create\r
commandContext :: () -> CommandContextMutable\r
\r
+instance Coercible CommandContextMutable CommandContext where\r
+ coerce = Java.unsafeCoerce\r
+\r
+cloneCommandContext :: CommandContext -> <Proc> CommandContextMutable\r
+cloneCommandContext context = merge (commandContext ()) context\r
+\r
importJava "org.simantics.document.server.io.CommandResult" where\r
data CommandResult\r
\r
@JavaName getPropertyValueCached\r
propertyValueCached_ :: Variable -> String -> Binding a -> <ReadGraph> a\r
\r
+ stateVariable :: Variable -> <ReadGraph> Variable\r
+ \r
propertyValueCached :: Serializable a => Typeable a => Variable -> String -> <ReadGraph> a\r
propertyValueCached var prop = propertyValueCached_ var prop binding\r
\r