anchor.diff:          [ Switch.switch [ Switch.isChecked; Switch.isSmall ] [ str "Small" ]
             Switch.switch [ Switch.isChecked ] [ str "Normal" ]
             Switch.switch [ Switch.isChecked; Switch.isMedium ] [ str "Medium" ]
  -          Switch.switch [ Switch.isChecked; Switch.isLarge ] [ str "Large" ] 
  +          Switch.switch [ Switch.isChecked; Switch.isLarge ] [ str "Large" ]
           ]
  -            
   
  -        
  +
  +
   
   let stylesInteractive =
       Columns.columns [ ]
  -            [ 
  +            [
                 Column.column [ ]
                   [
                       div [ ClassName "block" ]
  
positive.code: The switch can be **rounded, outlined or both**.
                              """
                              (Viewer.View.root stylesInteractive model.CircleViewer (CircleViewerMsg >> dispatch))
                       
                          Render.docSection 
                              "### States"
                              (Viewer.View.root stateInteractive model.StateViewer (StateViewerMsg >> dispatch))
                          
                          Render.docSection
                              "### Event handler"
                              (Viewer.View.root (eventInteractive model dispatch) model.EventViewer (EventViewerMsg >> dispatch))
                      ]
negative.code:           Switch.switch [ ] [ str "Unchecked" ]
            Switch.switch [ Switch.isChecked;] [ str "checked" ]
          ]
  
  
  
  let eventInteractive model dispatch =
      let state = not model.IsChecked
  
      div [ ClassName "block" ]
          [ Switch.switch
              [
                  if model.IsChecked then yield Switch.isChecked;
                  yield Switch.onChange (fun x -> dispatch (Change state))
              ]
              [ str  (sprintf "%A" model.IsChecked) ]
  
            Switch.switch
              [
                  if model.IsChecked then yield Switch.isChecked;
                  yield Switch.onChange (fun x -> dispatch (Change state))
              ]
              [ str  (if model.IsChecked then ":p" else ":'(") ]
  
            Switch.switch
              [
                  if model.IsChecked then yield Switch.isChecked;
                  yield Switch.onChange (fun x -> dispatch (Change state))
              ]
              [ (if model.IsChecked then Icon.faIcon [ ] [ Fa.icon Fa.I.Plane ] else Icon.faIcon [ ] [ Fa.icon Fa.I.Rocket ]) ]
          ]
  
  let root model dispatch =
  