tforgione
/
elm-twitch
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

ScrollbarY

This commit is contained in:
Thomas Forgione 2020-10-06 11:09:37 +02:00
parent 72fe1dbab1
commit 707d4f45f1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Views.elm
View File

@ -37,7 +37,7 @@ view model =
, Font.family [ Font.typeface "Cantarell" ] , Font.family [ Font.typeface "Cantarell" ]
] ]
(Element.column (Element.column
[ Element.width Element.fill ] [ Element.width Element.fill, Element.height Element.fill ]
[ topBar, element ] [ topBar, element ]
) )
] ]
@ -294,7 +294,7 @@ videoView device zone playlist video =
( builder, contentPadding ) = ( builder, contentPadding ) =
case device.class of case device.class of
Element.Phone -> Element.Phone ->
( Element.column [ Element.width Element.fill, Element.spacing 10 ] ( Element.column [ Element.width Element.fill, Element.height Element.fill, Element.spacing 10 ]
, Element.paddingXY 10 0 , Element.paddingXY 10 0
) )
@ -308,6 +308,7 @@ videoView device zone playlist video =
[ Element.width (Element.fillPortion 2) [ Element.width (Element.fillPortion 2)
, Element.spacing 10 , Element.spacing 10
, Element.alignTop , Element.alignTop
, Element.height Element.fill
] ]
[ Keyed.el [ Keyed.el
[ Element.width Element.fill [ Element.width Element.fill
@ -352,6 +353,8 @@ videoView device zone playlist video =
, Element.alignTop , Element.alignTop
, Element.spacing 10 , Element.spacing 10
, Element.width (Element.fillPortion 1) , Element.width (Element.fillPortion 1)
, Element.height Element.fill
, Element.scrollbarY
] ]
(List.map (videoInList zone playlist video) playlist.videos) (List.map (videoInList zone playlist video) playlist.videos)
] ]