anchor.diff:                            Switch.Checked true
                             Switch.Id "switch-45" ]
               [ str "Disabled & Checked" ]
  -          Switch.switch [ ]
  +          Switch.switch [ Switch.Id "switch-unchecked-1" ]
               [ str "Unchecked" ]
             Switch.switch [ Switch.Checked true
                             Switch.Id "switch-46" ]
  
positive.code:                     Switch.Id "switch-5" ]
          [ str "Label is on the left" ]
  
  let colorInteractive () =
      Columns.columns [ ]
          [ Column.column [ ]
              [ div [ ClassName "block" ]
                    [ Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-6" ]
                          [ str "Default" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-7"
                                      Switch.Color IsWhite ]
                          [ str "White" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-8"
                                      Switch.Color IsLight ]
                          [ str "Light" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-9"
                                      Switch.Color IsDark ]
                          [ str "Dark" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-10"
                                      Switch.Color IsBlack ]
                          [ str "Black" ] ] ]
            // ----------------
            Column.column [ ]
              [ div [ ClassName "block" ]
                    [ Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-11"
                                      Switch.Color IsPrimary ]
                          [ str "Primary" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-12"
                                      Switch.Color IsInfo ]
                          [ str "Info" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-13"
                                      Switch.Color IsSuccess ]
                          [ str "Success" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-14"
                                      Switch.Color IsWarning ]
                          [ str "Warning" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-15"
                                      Switch.Color IsDanger ]
                          [ str "Danger" ] ] ] ]
  
  
  let sizeInteractive () =
      div [ ClassName "block" ]
          [ Switch.switch [ Switch.Checked true
                            Switch.Id "switch-16"
                            Switch.Size IsSmall ]
              [ str "Small" ]
            Switch.switch [ Switch.Checked true
                            Switch.Id "switch-17" ]
              [ str "Normal" ]
            Switch.switch [ Switch.Checked true
                            Switch.Id "switch-18"
                            Switch.Size IsMedium ]
              [ str "Medium" ]
            Switch.switch [ Switch.Checked true
                            Switch.Id "switch-19"
                            Switch.Size IsLarge ]
              [ str "Large" ] ]
  
  
  let stylesInteractive () =
      Columns.columns [ ]
          [ Column.column [ ]
              [ div [ ClassName "block" ]
                    [ Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-20"
                                      Switch.IsRounded
                                      Switch.Disabled true ]
                          [ str "Disabled" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-21"
                                      Switch.IsRounded
                                      Switch.Color IsPrimary ]
                          [ str "Checkbox" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-22"
                                      Switch.IsRounded
                                      Switch.Color IsSuccess ]
                          [ str "Checkbox - success" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-23"
                                      Switch.IsRounded
                                      Switch.Color IsWarning ]
                          [ str "Checkbox - warning" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-24"
                                      Switch.IsRounded
                                      Switch.Color IsDanger ]
                          [ str "Checkbox - danger" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-25"
                                      Switch.IsRounded
                                      Switch.Color IsInfo ]
                          [ str "Checkbox - info" ] ] ]
            // ----------------
            Column.column [ ]
              [ div [ ClassName "block" ]
                    [ Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-26"
                                      Switch.IsThin
                                      Switch.Disabled true ]
                          [ str "Disabled" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-27"
                                      Switch.IsThin
                                      Switch.Color IsPrimary ]
                          [ str "Checkbox" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-28"
                                      Switch.IsThin
                                      Switch.Color IsSuccess ]
                          [ str "Checkbox - success" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-29"
                                      Switch.IsThin
                                      Switch.Color IsWarning ]
                          [ str "Checkbox - warning" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-30"
                                      Switch.IsThin
                                      Switch.Color IsDanger ]
                          [ str "Checkbox - danger" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-31"
                                      Switch.IsThin
                                      Switch.Color IsInfo ]
                          [ str "Checkbox - info" ] ] ]
            // ----------------
            Column.column [ ]
              [ div [ ClassName "block" ]
                    [ Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-32"
                                      Switch.IsOutlined
                                      Switch.Disabled true ]
                          [ str "Disabled" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-33"
                                      Switch.IsOutlined
                                      Switch.Color IsPrimary ]
                          [ str "Checkbox" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-34"
                                      Switch.IsOutlined
                                      Switch.Color IsSuccess ]
                          [ str "Checkbox - success" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-35"
                                      Switch.IsOutlined
                                      Switch.Color IsWarning ]
                          [ str "Checkbox - warning" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-36"
                                      Switch.IsOutlined
                                      Switch.Color IsDanger ]
                          [ str "Checkbox - danger" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-37"
                                      Switch.IsOutlined
                                      Switch.Color IsInfo ]
                          [ str "Checkbox - info" ] ] ]
            // ----------------
            Column.column [ ]
              [ div [ ClassName "block" ]
                    [ Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-38"
                                      Switch.IsRounded
                                      Switch.IsOutlined
                                      Switch.Disabled true ]
                          [ str "Disabled" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-39"
                                      Switch.IsRounded
                                      Switch.IsOutlined
                                      Switch.Color IsPrimary ]
                          [ str "Checkbox" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-40"
                                      Switch.IsRounded
                                      Switch.IsOutlined
                                      Switch.Color IsSuccess ]
                          [ str "Checkbox - success" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-41"
                                      Switch.IsRounded
                                      Switch.IsOutlined
                                      Switch.Color IsWarning ]
                          [ str "Checkbox - warning" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-42"
                                      Switch.IsRounded
                                      Switch.IsOutlined
                                      Switch.Color IsDanger ]
                          [ str "Checkbox - danger" ]
                      Switch.switch [ Switch.Checked true
                                      Switch.Id "switch-43"
                                      Switch.IsRounded
                                      Switch.IsOutlined
                                      Switch.Color IsInfo ]
                          [ str "Checkbox - info" ] ] ] ]
  
  let stateInteractive () =
      div [ ClassName "block" ]
  
negative.code:                         (Widgets.Showcase.view rtl (Render.includeCode __LINE__ __SOURCE_FILE__))
                       Render.docSection
                          "### Colors"
                          (Widgets.Showcase.view (fun _ -> ofType<SwitchColorDemo,_,_> (unbox null) []) (Render.includeCode __LINE__ __SOURCE_FILE__))
                       Render.docSection
                          "### Sizes"
                          (Widgets.Showcase.view (fun _ -> ofType<SwitchSizeDemo,_,_> (unbox null) []) (Render.includeCode __LINE__ __SOURCE_FILE__))
                       Render.docSection
                          """
  ### Styles
  The switch can be **rounded, outlined, thin or any combinaison of those**.
                          """
                          (Widgets.Showcase.view (fun _ -> ofType<SwitchStylesDemo,_,_> (unbox null) []) (Render.includeCode __LINE__ __SOURCE_FILE__))
                       Render.docSection
                          "### States"
                          (Widgets.Showcase.view stateInteractive (Render.includeCode __LINE__ __SOURCE_FILE__))
  