@@ -1501,92 +1501,6 @@ radioHelper orientation attrs input =
15011501 AfterFound ->
15021502 ( found, prev, nxt )
15031503
1504− inputVisible =
1505− List.isEmpty <|
1506− Internal.get attrs <|
1507− \attr ->
1508− case attr of
1509− Internal.StyleClass _ (Internal.Transparency _ _) ->
1510− True
1511−
1512− Internal.Class _ "hidden" ->
1513− True
1514−
1515− _ ->
1516− False
1517−
1518− labelVisible =
1519− case input.label of
1520− Label _ labelAttrs _ ->
1521− List.isEmpty <|
1522− Internal.get labelAttrs <|
1523− \attr ->
1524− case attr of
1525− Internal.StyleClass _ (Internal.Transparency _ _) ->
1526− True
1527−
1528− Internal.Class _ "hidden" ->
1529− True
1530−
1531− _ ->
1532− False
1533−
1534− HiddenLabel _ ->
1535− True
1536−
1537− hideIfEverythingisInvisible =
1538− if not labelVisible && not inputVisible then
1539− let
1540− pseudos =
1541− List.filterMap
1542− (\attr ->
1543− case attr of
1544− Internal.StyleClass _ style ->
1545− case style of
1546− Internal.PseudoSelector pseudo styles ->
1547− let
1548− transparent =
1549− List.filter forTransparency styles
1550−
1551− forTransparency psuedoStyle =
1552− case psuedoStyle of
1553− Internal.Transparency _ _ ->
1554− True
1555−
1556− _ ->
1557− False
1558−
1559− flag =
1560− case pseudo of
1561− Internal.Hover ->
1562− Flag.hover
1563−
1564− Internal.Focus ->
1565− Flag.focus
1566−
1567− Internal.Active ->
1568− Flag.active
1569− in
1570− case transparent of
1571− [] ->
1572− Nothing
1573−
1574− _ ->
1575− Just <| Internal.StyleClass flag <| Internal.PseudoSelector pseudo transparent
1576−
1577− _ ->
1578− Nothing
1579−
1580− _ ->
1581− Nothing
1582− )
1583− attrs
1584− in
1585− Internal.StyleClass Flag.transparency (Internal.Transparency "transparent" 1.0) :: pseudos
1586−
1587− else
1588− []
1589−
15901504 events =
15911505 Internal.get
15921506 attrs
@@ -1647,7 +1561,7 @@ radioHelper orientation attrs input =
16471561 )
16481562 ]
16491563 ++ events
1650− ++ hideIfEverythingisInvisible
1564+ -- ++ hideIfEverythingisInvisible
16511565 )
16521566 input.label
16531567 optionArea