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

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