git.iko.soy/typeable/elm-ui
on master help sign in
resolves #115
ada7de4Matthew Griffith
src/Element/Keyed.elm+13−10
compare with master
unifiedsplit
@@ -20,7 +20,7 @@ This means if a key is changed between renders, then the diffing step will be sk
20
20
21-}
21-}
22
22
23−import Element exposing (Attribute, Element, fill, height, width)
23+import Element exposing (Attribute, Element, fill, height, shrink, width)
24import Internal.Model as Internal
24import Internal.Model as Internal
25import Internal.Style exposing (classes)
25import Internal.Style exposing (classes)
26
26
@@ -31,8 +31,8 @@ el attrs child =
31 Internal.element
31 Internal.element
32 Internal.asEl
32 Internal.asEl
33 Internal.div
33 Internal.div
34− (width Element.shrink
34+ (width shrink
35− :: height Element.shrink
35+ :: height shrink
36 :: attrs
36 :: attrs
37 )
37 )
38 (Internal.Keyed [ child ])
38 (Internal.Keyed [ child ])
@@ -44,9 +44,9 @@ row attrs children =
44 Internal.element
44 Internal.element
45 Internal.asRow
45 Internal.asRow
46 Internal.div
46 Internal.div
47− (Internal.htmlClass classes.contentLeft
47+ (Internal.htmlClass (classes.contentLeft ++ " " ++ classes.contentCenterY)
48− :: Internal.htmlClass classes.contentCenterY
49− :: width fill
48+ :: width shrink
49+ :: height shrink
50 :: attrs
50 :: attrs
51 )
51 )
52 (Internal.Keyed children)
52 (Internal.Keyed children)
@@ -58,10 +58,13 @@ column attrs children =
58 Internal.element
58 Internal.element
59 Internal.asColumn
59 Internal.asColumn
60 Internal.div
60 Internal.div
61− (Internal.htmlClass classes.contentTop
61+ (Internal.htmlClass
62+ (classes.contentTop
63+ ++ " "
62− :: Internal.htmlClass classes.contentLeft
64+ ++ classes.contentLeft
65+ )
63− :: height fill
66+ :: height shrink
64− :: width fill
67+ :: width shrink
65 :: attrs
68 :: attrs
66 )
69 )
67 (Internal.Keyed children)
70 (Internal.Keyed children)