include "Simantics/DB"
include "Simantics/Ontologies"
include "Simantics/SCL"
+include "Simantics/UI"
include "Document/All"
include "File"
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)