bundles/org.simantics.modeling.ui/scl/Simantics/Clipboard.scl

   1 import "Simantics/DB"\r
   2 import "Simantics/Model"\r
   3 import "Simantics/Scenegraph"\r
   4 \r
   5 importJava "org.simantics.modeling.ui.SCLClipboard" where\r
   6     @JavaName copyNode\r
   7     copyNode :: Resource -> <Proc> ()\r
   8     \r
   9     @JavaName pasteNode\r
  10     pasteNode :: Resource -> <Proc> ()\r
  11     \r
  12     @JavaName copyPasteNode\r
  13     copyPasteNode :: Resource -> Resource -> <Proc> ()\r
  14     \r
  15     @JavaName delete\r
  16     delete :: ICanvasContext -> [Resource] -> <Proc> Boolean\r
  17     \r
  18     @JavaName copyPasteDiagramContents\r
  19     copyPasteDiagramContents :: ICanvasContext -> ICanvasContext -> [Resource] -> Boolean\r
  20     \r
  21 /*    \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
  27     model\r
  28     */