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
    */