Add a scroll view so that messages can be scrolled without input.

2018-12-10 15:27:18 -08:00
parent 56a2212410
commit d855467f14
2 changed files with 17 additions and 3 deletions
--- a/src/Scylla/Views.elm
+++ b/src/Scylla/Views.elm
@@ -108,7 +108,7 @@ joinedRoomView m roomId jr =
            ]

 eventWrapperView : Model -> List (Html Msg) -> Html Msg
-eventWrapperView m = table [ class "events-wrapper" ]
+eventWrapperView m es = div [ class "events-wrapper" ] [ table [ class "events-table" ] es ]

 eventView : Model -> RoomEvent -> Maybe (Html Msg)
 eventView m re =