fixes #3

2024-11-29 15:24:07 +03:00 · 2018-08-31 07:59:01 -04:00 · 2018-08-31 07:59:01 -04:00 · 4a25c6dcb1
commit 4a25c6dcb1
parent c623099fe3
1 changed files with 11 additions and 0 deletions
--- a/src/Element/Input.elm
+++ b/src/Element/Input.elm
@ -777,6 +777,16 @@ textHelper textInput attrs textOptions =
                    , [ Internal.unstyled (Html.text textOptions.text) ]
                    )

+        heightFillFromChild =
+            Internal.get attributes <|
+                \attr ->
+                    case attr of
+                        Internal.Height (Internal.Fill _) ->
+                            True
+
+                        _ ->
+                            False
+
        attributesFromChild =
            Internal.get attributes <|
                \attr ->
@ -832,6 +842,7 @@ textHelper textInput attrs textOptions =
                (Element.width Element.fill
                    :: List.concat
                        [ nearbys
+                        , heightFillFromChild
                        , case textOptions.placeholder of
                            Nothing ->
                                []