summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/View/PlayerInput.elm')
-rw-r--r--src/View/PlayerInput.elm38
1 files changed, 38 insertions, 0 deletions
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
[