Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.modeling.ui / scl / Simantics / Clipboard.scl

diff --git a/bundles/org.simantics.modeling.ui/scl/Simantics/Clipboard.scl b/bundles/org.simantics.modeling.ui/scl/Simantics/Clipboard.scl
new file mode 100644 (file)
index 0000000..76b8bec
--- /dev/null
+++ b/bundles/org.simantics.modeling.ui/scl/Simantics/Clipboard.scl
@@ -0,0 +1,28 @@
+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
+    */
\ No newline at end of file