1 import "Simantics/DB"
\r
2 import "Simantics/Model"
\r
3 import "Simantics/Scenegraph"
\r
5 importJava "org.simantics.modeling.ui.SCLClipboard" where
\r
7 copyNode :: Resource -> <Proc> ()
\r
10 pasteNode :: Resource -> <Proc> ()
\r
12 @JavaName copyPasteNode
\r
13 copyPasteNode :: Resource -> Resource -> <Proc> ()
\r
16 delete :: ICanvasContext -> [Resource] -> <Proc> Boolean
\r
18 @JavaName copyPasteDiagramContents
\r
19 copyPasteDiagramContents :: ICanvasContext -> ICanvasContext -> [Resource] -> Boolean
\r
22 copyPasteMBNode :: Resource -> <Proc> Resource
\r
23 copyPasteMBNode resource = do
\r
24 copyPasteNode resource
\r
25 models = syncRead (\() -> allModels ())
\r
26 model = models ! ((length models) - 1)
\r