-import "Simantics/DB"\r
-import "Simantics/Model"\r
-import "Simantics/Scenegraph"\r
-\r
-importJava "org.simantics.modeling.ui.SCLClipboard" where\r
- @JavaName copyNode\r
- copyNode :: Resource -> <Proc> ()\r
- \r
- @JavaName pasteNode\r
- pasteNode :: Resource -> <Proc> ()\r
- \r
- @JavaName copyPasteNode\r
- copyPasteNode :: Resource -> Resource -> <Proc> ()\r
- \r
- @JavaName delete\r
- delete :: ICanvasContext -> [Resource] -> <Proc> Boolean\r
- \r
- @JavaName copyPasteDiagramContents\r
- copyPasteDiagramContents :: ICanvasContext -> ICanvasContext -> [Resource] -> Boolean\r
- \r
-/* \r
-copyPasteMBNode :: Resource -> <Proc> Resource\r
-copyPasteMBNode resource = do\r
- copyPasteNode resource\r
- models = syncRead (\() -> allModels ())\r
- model = models ! ((length models) - 1)\r
- model\r
+import "Simantics/DB"
+import "Simantics/Model"
+import "Simantics/Scenegraph"
+
+importJava "org.simantics.modeling.ui.SCLClipboard" where
+ @JavaName copyNode
+ copyNode :: Resource -> <Proc> ()
+
+ @JavaName pasteNode
+ pasteNode :: Resource -> <Proc> ()
+
+ @JavaName copyPasteNode
+ copyPasteNode :: Resource -> Resource -> <Proc> ()
+
+ @JavaName delete
+ delete :: ICanvasContext -> [Resource] -> <Proc> Boolean
+
+ @JavaName copyPasteDiagramContents
+ copyPasteDiagramContents :: ICanvasContext -> ICanvasContext -> [Resource] -> Boolean
+
+/*
+copyPasteMBNode :: Resource -> <Proc> Resource
+copyPasteMBNode resource = do
+ copyPasteNode resource
+ models = syncRead (\() -> allModels ())
+ model = models ! ((length models) - 1)
+ model
*/
\ No newline at end of file