Make the current settings more clear

This commit is contained in:
Tessa Kelly 2022-09-13 14:00:13 -06:00
parent 20b7e16e47
commit 4a93668504

View File

@ -302,10 +302,14 @@ controlMarker =
controlEraser : Control Tool.EraserModel
controlEraser =
Control.record Tool.EraserModel
|> Control.field "hoverClass" (Control.value [ Css.border3 (Css.px 4) Css.dashed Colors.red ])
|> Control.field "hintClass" (Control.value [ Css.border3 (Css.px 4) Css.dotted Colors.orange ])
|> Control.field "startGroupClass" (Control.value [ Css.opacity (Css.num 0.4) ])
|> Control.field "endGroupClass" (Control.value [ Css.opacity (Css.num 0.4) ])
|> Control.field "hoverClass"
(Control.choice [ ( "[ Css.border3 (Css.px 4) Css.dashed Colors.red ]", Control.value [ Css.border3 (Css.px 4) Css.dashed Colors.red ] ) ])
|> Control.field "hintClass"
(Control.choice [ ( "[ Css.border3 (Css.px 4) Css.dotted Colors.orange ]", Control.value [ Css.border3 (Css.px 4) Css.dotted Colors.orange ] ) ])
|> Control.field "startGroupClass"
(Control.choice [ ( "[ Css.opacity (Css.num 0.4) ]", Control.value [ Css.opacity (Css.num 0.4) ] ) ])
|> Control.field "endGroupClass"
(Control.choice [ ( "[ Css.opacity (Css.num 0.4) ]", Control.value [ Css.opacity (Css.num 0.4) ] ) ])
backgroundHighlightColors : Int -> Control Color