Fix the height

This commit is contained in:
Tessa Kelly 2019-10-09 13:53:13 -07:00
parent 86c532a02a
commit 4d741e9769
2 changed files with 6 additions and 4 deletions

View File

@ -313,7 +313,10 @@ view theme config attributes model =
viewContent : List (Html msg) -> Html msg viewContent : List (Html msg) -> Html msg
viewContent children = viewContent children =
div [ css [ Css.paddingBottom (Css.px 20) ] ] div [ css [ Css.paddingBottom (Css.px 20) ] ]
[ viewContent_ [] children [ viewContent_
[ css [ Css.maxHeight (Css.calc (Css.vh 100) Css.minus (Css.px 360)) ]
]
children
] ]
@ -328,7 +331,7 @@ viewFooterlessContent children =
] ]
] ]
[ viewContent_ [ viewContent_
[ css [ Css.maxHeight (Css.calc (Css.vh 100) Css.minus (Css.px 230)) ] [ css [ Css.maxHeight (Css.calc (Css.vh 100) Css.minus (Css.px 100)) ]
] ]
children children
] ]
@ -340,7 +343,6 @@ viewContent_ attributes children =
"modal-content" "modal-content"
[ Css.overflowY Css.auto [ Css.overflowY Css.auto
, Css.minHeight (Css.px 150) , Css.minHeight (Css.px 150)
, Css.maxHeight (Css.calc (Css.vh 100) Css.minus (Css.px 360))
, Css.padding2 (Css.px 10) (Css.px 40) , Css.padding2 (Css.px 10) (Css.px 40)
, Css.width (Css.pct 100) , Css.width (Css.pct 100)
, Css.boxSizing Css.borderBox , Css.boxSizing Css.borderBox

View File

@ -149,7 +149,7 @@ viewContent state wrapMsg firstButtonStyle =
(\focusableElementAttrs -> (\focusableElementAttrs ->
div [] div []
[ Modal.closeButton wrapMsg focusableElementAttrs.firstFocusableElement [ Modal.closeButton wrapMsg focusableElementAttrs.firstFocusableElement
, Modal.viewContent [ viewModalContent state.longContent ] , Modal.viewFooterlessContent [ viewModalContent state.longContent ]
] ]
) )
] ]