diff --git a/src/Editor/Common.elm b/src/Editor/Common.elm index c692dfb..1f561bf 100644 --- a/src/Editor/Common.elm +++ b/src/Editor/Common.elm @@ -321,7 +321,17 @@ viewContentButton w msg = viewVolumeSlider : Wheeled x -> (Float -> msg) -> Element msg viewVolumeSlider w msgF = - Input.slider [] + Input.slider + [ behindContent <| + el + [ width fill + , height <| px 2 + , centerY + , Bg.color <| rgb 0 0 0 + , Border.rounded 2 + ] + Element.none + ] { label = Input.labelAbove [] <| text "Volume" , onChange = msgF , value = w.wheel.volume