Fix Range slider props

Author: kMutagene

src/Plotly.NET/CommonAbstractions/StyleParams.fs

@@ -1800,6 +1800,19 @@ module StyleParam =
 // #R#
 //--------------------------
 
+    [<RequireQualifiedAccess>]
+    type RangesliderRangeMode =
+        | Auto | Fixed | Match
+    
+        static member toString = function
+            | Auto      -> "auto"            
+            | Fixed     -> "fixed"            
+            | Match     -> "match"
+
+        static member convert = RangesliderRangeMode.toString >> box
+        override this.ToString() = this |> RangesliderRangeMode.toString
+        member this.Convert() = this |> RangesliderRangeMode.convert
+
     /// If "normal", the range is computed in relation to the extrema of the input data. If "tozero"`, the range extends to 0, regardless of the input data If "nonnegative", the range is non-negative, regardless of the input data.
     [<RequireQualifiedAccess>]
     type RangeMode =

src/Plotly.NET/Layout/ObjectAbstractions/Common/RangeSlider.fs

@@ -24,12 +24,12 @@ type RangeSlider () =
             [<Optional;DefaultParameterValue(null)>] ?BgColor: Color,
             [<Optional;DefaultParameterValue(null)>] ?BorderColor: Color,
             [<Optional;DefaultParameterValue(null)>] ?BorderWidth: float,
-            [<Optional;DefaultParameterValue(null)>] ?AutoRange : bool ,
-            [<Optional;DefaultParameterValue(null)>] ?Range: seq<#IConvertible>  ,
+            [<Optional;DefaultParameterValue(null)>] ?AutoRange : bool,
+            [<Optional;DefaultParameterValue(null)>] ?Range: StyleParam.Range,
             [<Optional;DefaultParameterValue(null)>] ?Thickness: float,
             [<Optional;DefaultParameterValue(null)>] ?Visible: bool,
-            [<Optional;DefaultParameterValue(null)>] ?YAxisRangeMode: StyleParam.RangeMode,
-            [<Optional;DefaultParameterValue(null)>] ?YAxisRange: seq<#IConvertible>
+            [<Optional;DefaultParameterValue(null)>] ?YAxisRangeMode: StyleParam.RangesliderRangeMode,
+            [<Optional;DefaultParameterValue(null)>] ?YAxisRange: StyleParam.Range
         ) = 
             RangeSlider ()
             |> RangeSlider.style (
@@ -59,25 +59,25 @@ type RangeSlider () =
             [<Optional;DefaultParameterValue(null)>] ?BorderColor: Color,
             [<Optional;DefaultParameterValue(null)>] ?BorderWidth: float,
             [<Optional;DefaultParameterValue(null)>] ?AutoRange : bool,
-            [<Optional;DefaultParameterValue(null)>] ?Range: seq<#IConvertible>,
+            [<Optional;DefaultParameterValue(null)>] ?Range: StyleParam.Range,
             [<Optional;DefaultParameterValue(null)>] ?Thickness: float,
             [<Optional;DefaultParameterValue(null)>] ?Visible: bool,
-            [<Optional;DefaultParameterValue(null)>] ?YAxisRangeMode: StyleParam.RangeMode,
-            [<Optional;DefaultParameterValue(null)>] ?YAxisRange: seq<#IConvertible>
+            [<Optional;DefaultParameterValue(null)>] ?YAxisRangeMode: StyleParam.RangesliderRangeMode,
+            [<Optional;DefaultParameterValue(null)>] ?YAxisRange: StyleParam.Range
         ) = 
             fun (rangeslider : RangeSlider) ->
                 BgColor        |> DynObj.setValueOpt rangeslider "bgcolor"
-                BorderColor    |> DynObj.setValueOpt rangeslider "BorderColor"
-                BorderWidth    |> DynObj.setValueOpt rangeslider "BorderWidth"
-                AutoRange      |> DynObj.setValueOpt rangeslider "AutoRange"
-                Range          |> DynObj.setValueOpt rangeslider "range"
+                BorderColor    |> DynObj.setValueOpt rangeslider "bordercolor"
+                BorderWidth    |> DynObj.setValueOpt rangeslider "borderwidth"
+                AutoRange      |> DynObj.setValueOpt rangeslider "autorange"
+                Range          |> DynObj.setValueOptBy rangeslider "range" StyleParam.Range.convert
                 Thickness      |> DynObj.setValueOpt rangeslider "thickness"
                 Visible        |> DynObj.setValueOpt rangeslider "visible"
 
                 let yAxis = 
                     let tmp = DynamicObj()
-                    YAxisRangeMode  |> DynObj.setValueOpt tmp "rangemode" 
-                    YAxisRange      |> DynObj.setValueOpt tmp "range" 
+                    YAxisRangeMode  |> DynObj.setValueOptBy tmp "rangemode" StyleParam.RangesliderRangeMode.convert
+                    YAxisRange      |> DynObj.setValueOptBy tmp "range" StyleParam.Range.convert
                     tmp
 
                 yAxis |> DynObj.setValue rangeslider "yaxis"