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:                 ]
  
              ]
            
  
  let stateInteractive =
      div [ ClassName "block" ]
  
negative.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))
                      ]
  