Fix Chrome focus issue

lydell · lydell · commit 0ae427e1054d · 2025-02-05T16:13:23.000+01:00
This applies mdgriffith#362 Conflicts: src/Internal/Model.elm
diff --git a/src/Internal/Model.elm b/src/Internal/Model.elm
@@ -2242,7 +2242,7 @@ renderFocusStyle focus =
             , Just <| Property "outline" "none"
             ]
         )
-    , Style (Internal.Style.dot classes.any ++ ":focus .focusable, " ++ Internal.Style.dot classes.any ++ ".focusable:focus")
+    , Style ("label" ++ Internal.Style.dot classes.any ++ ":focus .focusable, " ++ Internal.Style.dot classes.any ++ ".focusable:focus")
         (List.filterMap identity
             [ Maybe.map (\color -> Property "border-color" (formatColor color)) focus.borderColor
             , Maybe.map (\color -> Property "background-color" (formatColor color)) focus.backgroundColor

Original file line number	Diff line number	Diff line change
`@@ -2242,7 +2242,7 @@ renderFocusStyle focus =`
`2242`	`2242`	`, Just <\| Property "outline" "none"`
`2243`	`2243`	`]`
`2244`	`2244`	`)`
`2245`		`- , Style (Internal.Style.dot classes.any ++ ":focus .focusable, " ++ Internal.Style.dot classes.any ++ ".focusable:focus")`
	`2245`	`+ , Style ("label" ++ Internal.Style.dot classes.any ++ ":focus .focusable, " ++ Internal.Style.dot classes.any ++ ".focusable:focus")`
`2246`	`2246`	`(List.filterMap identity`
`2247`	`2247`	`[ Maybe.map (\color -> Property "border-color" (formatColor color)) focus.borderColor`
`2248`	`2248`	`, Maybe.map (\color -> Property "background-color" (formatColor color)) focus.backgroundColor`