Adds some defaults

src/Nri/Ui/SegmentedControl/V13.elm

@@ -138,7 +138,8 @@ viewRadioGroup config =
         )
 
 
-{-| -}
+{-| Tooltip defaults: `[Tooltip.smallPadding, Tooltip.onBottom, Tooltip.fitToContent]`
+-}
 type alias Option value msg =
     { value : value
     , idString : String

src/Nri/Ui/Tabs/V7.elm

@@ -64,7 +64,8 @@ tabHtml content =
     Attribute (\tab -> { tab | tabView = content })
 
 
-{-| -}
+{-| Tooltip defaults: `[Tooltip.smallPadding, Tooltip.onBottom, Tooltip.fitToContent]`
+-}
 withTooltip : List (Tooltip.Attribute msg) -> Attribute id msg
 withTooltip attributes =
     Attribute (\tab -> { tab | tabTooltip = attributes })

src/TabsInternal/V2.elm

@@ -123,7 +123,12 @@ viewTab_ config index tab =
                 { id = "tab-tooltip__" ++ tabToId tab.idString
                 , trigger = \eventHandlers -> buttonOrLink eventHandlers
                 }
-                tooltipAttributes
+                ([ Tooltip.smallPadding
+                 , Tooltip.onBottom
+                 , Tooltip.fitToContent
+                 ]
+                    ++ tooltipAttributes
+                )
 
 
 keyEvents : Config id msg -> Tab id msg -> Int -> Json.Decode.Decoder msg

styleguide-app/Examples/SegmentedControl.elm

@@ -112,10 +112,7 @@ buildOptions { icon, longContent, tooltips } openTooltip =
             , tabTooltip =
                 if tooltips then
                     [ Tooltip.plaintext (Debug.toString value)
-                    , Tooltip.smallPadding
-                    , Tooltip.onBottom
                     , Tooltip.onHover (PageTooltip value)
-                    , Tooltip.fitToContent
                     , Tooltip.open (openTooltip == Just value)
                     ]
 

styleguide-app/Examples/Tabs.elm

@@ -170,12 +170,9 @@ allTabs openTooltipId =
         , Tabs.tabString "1"
         , Tabs.withTooltip
             [ Tooltip.plaintext "Link Example"
-            , Tooltip.onBottom
             , Tooltip.onHover (ToggleTooltip First)
             , Tooltip.alignStart (Css.px 75)
             , Tooltip.primaryLabel
-            , Tooltip.fitToContent
-            , Tooltip.smallPadding
             , Tooltip.open (openTooltipId == Just First)
             ]
         , Tabs.panelHtml (Html.text "First Panel")
@@ -188,11 +185,8 @@ allTabs openTooltipId =
         [ Tabs.tabHtml bulbIcon
         , Tabs.withTooltip
             [ Tooltip.plaintext "The Electrifying Third Tab"
-            , Tooltip.onBottom
             , Tooltip.onHover (ToggleTooltip Third)
             , Tooltip.primaryLabel
-            , Tooltip.fitToContent
-            , Tooltip.smallPadding
             , Tooltip.open (openTooltipId == Just Third)
             ]
         , Tabs.panelHtml (Html.text "Third Panel")