X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.spreadsheet%2Fscl%2FSpreadsheet%2FSolver.scl;fp=bundles%2Forg.simantics.spreadsheet%2Fscl%2FSpreadsheet%2FSolver.scl;h=629767c8b29d4a37e1ffca18af6332d8831c193b;hb=c9a552af1020b5e6d4cf0da0a00bd758de772c2a;hp=0000000000000000000000000000000000000000;hpb=526f4a68350df5a272586f7d794603ecb4525132;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.spreadsheet/scl/Spreadsheet/Solver.scl b/bundles/org.simantics.spreadsheet/scl/Spreadsheet/Solver.scl
new file mode 100644
index 000000000..629767c8b
--- /dev/null
+++ b/bundles/org.simantics.spreadsheet/scl/Spreadsheet/Solver.scl
@@ -0,0 +1,55 @@
+
+importJava "org.simantics.spreadsheet.ExternalRef" where
+    data ExternalRef
+    
+importJava "org.simantics.spreadsheet.solver.SpreadsheetBook" where
+    data SpreadsheetBook
+    @JavaName "getEngine"
+    spreadsheetBookEngine :: SpreadsheetBook -> String -> <Proc> SpreadsheetEngine
+
+importJava "org.simantics.spreadsheet.solver.SpreadsheetEngine" where
+    data SpreadsheetEngine
+    @JavaName "getLines"
+    spreadsheetEngineLines :: SpreadsheetEngine -> Integer -> Integer -> <Proc> [SpreadsheetLine]
+
+importJava "org.simantics.spreadsheet.solver.SpreadsheetLine" where
+    data SpreadsheetLine
+    @JavaName "getRow"
+    spreadsheetLineRow :: SpreadsheetLine -> Integer
+    @JavaName "getCells"
+    spreadsheetLineCells :: SpreadsheetLine -> Integer -> Integer -> <Proc> [SpreadsheetCell]
+
+importJava "org.simantics.spreadsheet.solver.SpreadsheetCell" where
+    data SpreadsheetCell
+    @JavaName "getColumn"
+    spreadsheetCellColumn :: SpreadsheetCell -> Integer
+    @JavaName "getContentVariant"
+    spreadsheetCellContentVariant :: SpreadsheetCell -> SpreadsheetBook -> <Proc> Maybe Variant
+
+importJava "java.util.function.Consumer" where
+    data Consumer
+
+importJava "org.simantics.spreadsheet.Spreadsheets" where
+     cellName :: Integer -> Integer -> String
+
+importJava "org.simantics.spreadsheet.OperationMode" where
+    data OperationMode
+    OPERATION :: OperationMode
+    EDIT_MODE :: OperationMode
+
+importJava "org.simantics.spreadsheet.Transaction" where
+    data Transaction
+    commit :: Transaction -> <Proc> ()
+
+effect SpreadsheetTransaction 
+    "spreadsheetTransaction" 
+    "org.simantics.spreadsheet.Transaction"
+
+importJava "org.simantics.spreadsheet.CellEditor" where
+    data CellEditor
+    startTransaction :: CellEditor -> OperationMode -> <Proc> Transaction
+    @JavaName "edit"
+    editProperty_ :: CellEditor -> String -> String -> a -> Binding a -> Maybe Consumer -> <SpreadsheetTransaction> () 
+    @JavaName "edit"
+    editContent :: CellEditor -> String -> Variant -> Maybe Consumer -> <SpreadsheetTransaction> () 
+