view Volume slider track

Chapitalists · Jan 24, 2020 · 95d49e9 · 95d49e9
1 parent 4dd090e
commit 95d49e9
Showing 1 changed file with 11 additions and 1 deletion.
diff --git 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