From b1d6d8af0e31123d46e102bc68fcfd02d3b51256 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sun, 30 Jan 2022 00:37:05 +0100 Subject: ... --- src/View/PlayerInput.elm | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) (limited to 'src/View/PlayerInput.elm') diff --git a/src/View/PlayerInput.elm b/src/View/PlayerInput.elm index 01d926c..e8004f4 100644 --- a/src/View/PlayerInput.elm +++ b/src/View/PlayerInput.elm @@ -41,6 +41,44 @@ get_html model = then case model.ui.input of Struct.UI.NoInput -> (Html.div [] []) + Struct.UI.FloatInput -> + (Html.div + [ + (Html.Attributes.class "tonkadur-input") + ] + [ + (Html.div + [ + (Html.Attributes.class "tonkadur-input-instruction") + ] + [ + (Html.text + ( + "A number between " + ++ (String.fromFloat model.ui.min_float) + ++ " and " + ++ (String.fromFloat model.ui.max_float) + ++ " is expected:" + ) + ) + ] + ), + (Html.input + [ + (Html.Attributes.class "tonkadur-input-field"), + (Html.Attributes.min + (String.fromFloat model.ui.min_float) + ), + (Html.Attributes.max + (String.fromFloat model.ui.max_float) + ) + ] + [ + ] + ) + ] + ) + Struct.UI.IntegerInput -> (Html.div [ -- cgit v1.2.3-70-g09d2