propogate height ahd width to slider label when necessary
commit52ce5b093b3c5db730321ffce926d715a6f0e5e8
authorMatthew Griffith <mdg.griffith@gmail.com>
dateMon 10 Sep 2018, 22:31 (8 years ago)
parentd6aeec7
src/Element/Input.elm+22−1
@@ -424,7 +424,28 @@ slider attributes input =
424424 applyLabel
425425 [ Element.spacingXY spacingX spacingY
426426 , Region.announce
427− , Element.width Element.fill
427+ , Element.width
428+ (case trackWidth of
429+ Nothing ->
430+ Element.fill
431+
432+ Just (Internal.Px _) ->
433+ Element.shrink
434+
435+ Just x ->
436+ x
437+ )
438+ , Element.height
439+ (case trackHeight of
440+ Nothing ->
441+ Element.shrink
442+
443+ Just (Internal.Px _) ->
444+ Element.shrink
445+
446+ Just x ->
447+ x
448+ )
428449 ]
429450 input.label
430451 (Element.row