]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - bundles/org.simantics.diagram/scl/Simantics/Diagram/SymbolLibrary.scl
SCL bindings for symbol library
[simantics/platform.git] / bundles / org.simantics.diagram / scl / Simantics / Diagram / SymbolLibrary.scl
diff --git a/bundles/org.simantics.diagram/scl/Simantics/Diagram/SymbolLibrary.scl b/bundles/org.simantics.diagram/scl/Simantics/Diagram/SymbolLibrary.scl
new file mode 100644 (file)
index 0000000..78be7a1
--- /dev/null
@@ -0,0 +1,47 @@
+import "Simantics/DB"
+import "Simantics/Scenegraph"
+
+importJava "org.simantics.diagram.symbollibrary.ISymbolItem" where
+  data ISymbolItem
+  
+  @JavaName getName
+  getItemName :: ISymbolItem -> <Proc> String
+  @JavaName getDescription
+  getItemDescription :: ISymbolItem -> <Proc> String
+  @JavaName getGroup
+  getItemGroup :: ISymbolItem -> <Proc> ISymbolGroup
+  
+  
+importJava "org.simantics.diagram.symbollibrary.ISymbolGroup" where
+  data ISymbolGroup
+  
+  @JavaName getName
+  getGroupName :: ISymbolGroup -> <Proc> String
+  @JavaName getDescription
+  getGroupDescription :: ISymbolGroup -> <Proc> String
+  @JavaName getItems
+  getGroupItems :: ISymbolGroup -> <Proc> Vector ISymbolItem
+  
+  
+//importJava "org.simantics.g2d.element.ElementClass" where
+//  data ElementClass
+
+importJava "org.simantics.diagram.symbolcontribution.ISymbolProvider" where
+  data ISymbolProvider
+  getSymbolGroups :: ISymbolProvider -> <Proc> [ISymbolGroup]
+  @JavaName "dispose"
+  disposeSymbolProvider :: ISymbolProvider -> <Proc>()
+  
+
+importJava "org.simantics.diagram.symbolcontribution.IndexRootSymbolProviderFactory" where
+  data IndexRootSymbolProvideFactory
+  
+  @JavaName "<init>"
+  createIndexRootSymbolProvideFactory :: Maybe Resource -> Maybe Resource -> IndexRootSymbolProvideFactory
+  
+  create :: IndexRootSymbolProvideFactory -> <Proc,ReadGraph> ISymbolProvider
+   
+importJava "org.simantics.diagram.scl.SymbolLibrary" where
+  
+  @JavaName create
+  itemToContext :: ISymbolItem -> <Proc> ICanvasContext
\ No newline at end of file