include "Simantics/DB"
include "Simantics/Ontologies"
include "Simantics/SCL"
+include "Simantics/UI"
include "Document/All"
include "File"
+importJava "org.simantics.spreadsheet.graph.ExternalRef" where
+ data ExternalRef
+
importJava "org.simantics.spreadsheet.common.TableCell" where
data TableCell
importJava "org.simantics.spreadsheet.common.TreeTableCell" where
data TreeTableCell
+ @JavaName getData
+ getTreeTableCellData :: TreeTableCell -> <Proc> a
+
+ createTreeTableCell :: String -> a -> Maybe b -> Integer -> Integer -> Integer -> Boolean -> <Proc> TreeTableCell
+
+ createTreeTableCell2 :: String -> a -> Maybe b -> a -> Integer -> Integer -> Boolean -> <Proc> TreeTableCell
+
+ @JavaName getText
+ treeTableCellText :: TreeTableCell -> <Proc> String
+ @JavaName getFont
+ treeTableCellFont :: TreeTableCell -> <Proc> Maybe IFont
+ @JavaName getRow
+ treeTableCellRow :: TreeTableCell -> <Proc> Integer
+ @JavaName getColumn
+ treeTableCellColumn :: TreeTableCell -> <Proc> Integer
+
importJava "org.simantics.spreadsheet.common.SpreadsheetCell" where
data SpreadsheetCell
saveInitialCondition :: Variable -> Resource -> String -> <WriteGraph> Resource
findCell :: Variable -> String -> <ReadGraph> Maybe Variable
invalidateAll :: Variable -> <ReadGraph> ()
+ extRefVariable :: Variable -> <ReadGraph> Variant
+ extRefActiveVariable :: Variable -> <ReadGraph> Variant
importJava "org.simantics.spreadsheet.util.SpreadsheetUtils" where
createSheet :: Resource -> String -> <WriteGraph> Resource
selectColumn :: Integer -> TableCell -> Boolean
setSCLLine :: Resource -> Integer -> String -> <WriteGraph> ()
sheetRun :: Resource -> Variable -> <ReadGraph> Variable
-
+
+importJava "org.simantics.spreadsheet.graph.SpreadsheetSessionManager" where
+ removeSpreadsheetSession :: Variable -> <Proc, WriteGraph> ()
+
importJava "org.simantics.spreadsheet.graph.ExcelImport" where
importBook :: Resource -> File -> <Proc> ()
+importSpreadsheetBookAction :: Resource -> <Proc> ()
+importSpreadsheetBookAction res = match fileDialog "foo" [("Excel file", "*.xls"), ("Excel File", "*.xlsx")] with
+ Nothing -> ()
+ Just file -> importBook res file
+
createSpreadsheetBookAction :: Resource -> <Proc> ()
createSpreadsheetBookAction res = do
syncWrite (\() -> createSpreadsheetBookDefault res)