update FsSpreadsheet dependency to 7.0.0

Author: HLWeil

Directory.Packages.props

@@ -6,14 +6,14 @@
     <PackageVersion Include="Fable.Core"            Version="4.3.0" />
     <PackageVersion Include="Fable.Package.SDK"     Version="1.1.0" />
     <PackageVersion Include="FSharp.Core"           Version="[8.0.1,)" />
-    <PackageVersion Include="Thoth.Json.Core"       Version="0.4.0" />
-    <PackageVersion Include="Thoth.Json.JavaScript" Version="0.3.0" />
-    <PackageVersion Include="Thoth.Json.Python"     Version="0.4.0" />
-    <PackageVersion Include="Thoth.Json.Newtonsoft" Version="0.2.0" />
-    <PackageVersion Include="FsSpreadsheet"         Version="6.3.1" />
-    <PackageVersion Include="FsSpreadsheet.NET"     Version="6.3.1" />
-    <PackageVersion Include="FsSpreadsheet.Js"      Version="6.3.1" />
-    <PackageVersion Include="FsSpreadsheet.Py"      Version="6.3.1" />
+    <PackageVersion Include="Thoth.Json.Core"       Version="0.7.0" />
+    <PackageVersion Include="Thoth.Json.JavaScript" Version="0.4.1" />
+    <PackageVersion Include="Thoth.Json.Python"     Version="0.5.1" />
+    <PackageVersion Include="Thoth.Json.Newtonsoft" Version="0.3.2" />
+    <PackageVersion Include="FsSpreadsheet"         Version="7.0.0-alpha.1" />
+    <PackageVersion Include="FsSpreadsheet.NET"     Version="7.0.0-alpha.1" />
+    <PackageVersion Include="FsSpreadsheet.Js"      Version="7.0.0-alpha.1" />
+    <PackageVersion Include="FsSpreadsheet.Py"      Version="7.0.0-alpha.1" />
     <PackageVersion Include="YAMLicious"            Version="0.0.3" />
     <PackageVersion Include="DynamicObj"            Version="7.0.1" />
     <PackageVersion Include="Fable.SimpleHttp"      Version="3.5.0" />

tests/TestingUtils/TestObjects.Spreadsheet/Spreadsheet.ArcTable.fs

@@ -8,9 +8,9 @@ type FsTable with
     member this.IsEmpty(c : FsCellsCollection) =
         this.RangeAddress.Range = "A1:A1"
         && 
-            (this.Cell(FsAddress("A1"),c).Value = null)
+            (this.Cell(FsAddress.fromString("A1"),c).Value = null)
             ||
-            (this.Cell(FsAddress("A1"),c).Value = "")
+            (this.Cell(FsAddress.fromString("A1"),c).Value = "")
 
 module Parameter = 
 
@@ -435,7 +435,7 @@ let addSpacesToEnd (cc : FsCellsCollection) (t : FsTable) =
 
 let initTable (appendOperations : (FsCellsCollection -> FsTable -> unit) list)= 
     let c = FsCellsCollection()
-    let t = FsTable(ArcTable.annotationTablePrefix, FsRangeAddress("A1:A1"))
+    let t = FsTable(ArcTable.annotationTablePrefix, FsRangeAddress.fromString("A1:A1"))
     appendOperations 
     |> List.iter (fun o -> o c t)
     c,t
@@ -447,7 +447,7 @@ let initTableCols (appendOperations : (FsCellsCollection -> FsTable -> unit) lis
 
 let initWorksheet (name : string) (appendOperations : (FsCellsCollection -> FsTable -> unit) list) = 
     let w = FsWorksheet(name)
-    let t  = w.Table(ArcTable.annotationTablePrefix, FsRangeAddress("A1:A1"))
+    let t  = w.Table(ArcTable.annotationTablePrefix, FsRangeAddress.fromString("A1:A1"))
     appendOperations 
     |> List.iter (fun o -> o w.CellCollection t)
     addSpacesToEnd w.CellCollection t
@@ -457,7 +457,7 @@ let initWorksheet (name : string) (appendOperations : (FsCellsCollection -> FsTa
 
 let initWorksheetWithTableName (worksheetName : string) (tableName : string) (appendOperations : (FsCellsCollection -> FsTable -> unit) list) = 
     let w = FsWorksheet(worksheetName)
-    let t  = w.Table(tableName, FsRangeAddress("A1:A1"))
+    let t  = w.Table(tableName, FsRangeAddress.fromString("A1:A1"))
     appendOperations 
     |> List.iter (fun o -> o w.CellCollection t)
     addSpacesToEnd w.CellCollection t

tests/TestingUtils/TestObjects.Spreadsheet/Spreadsheet.DataMap.fs

@@ -8,9 +8,9 @@ type FsTable with
     member this.IsEmpty(c : FsCellsCollection) =
         this.RangeAddress.Range = "A1:A1"
         && 
-            (this.Cell(FsAddress("A1"),c).Value = null)
+            (this.Cell(FsAddress.fromString("A1"),c).Value = null)
             ||
-            (this.Cell(FsAddress("A1"),c).Value = "")
+            (this.Cell(FsAddress.fromString("A1"),c).Value = "")
 
 module Data = 
 
@@ -182,7 +182,7 @@ module Comment =
 
 let initWorksheet (name : string) (appendOperations : (FsCellsCollection -> FsTable -> unit) list) = 
     let w = FsWorksheet(name)
-    let t  = w.Table(DataMapTable.datamapTablePrefix, FsRangeAddress("A1:A1"))
+    let t  = w.Table(DataMapTable.datamapTablePrefix, FsRangeAddress.fromString("A1:A1"))
     appendOperations 
     |> List.iter (fun o -> o w.CellCollection t)
     ArcTable.addSpacesToEnd w.CellCollection t