git.iko.soy/typeable/elm-ui
on master help sign in
propogate height ahd width to slider label when necessary
52ce5b0Matthew Griffith
src/Element/Input.elm+22−1
compare with master
unifiedsplit
@@ -424,7 +424,28 @@ slider attributes input =
424 applyLabel
424 applyLabel
425 [ Element.spacingXY spacingX spacingY
425 [ Element.spacingXY spacingX spacingY
426 , Region.announce
426 , 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+ )
428 ]
449 ]
429 input.label
450 input.label
430 (Element.row
451 (Element.row