From b1d6d8af0e31123d46e102bc68fcfd02d3b51256 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sun, 30 Jan 2022 00:37:05 +0100
Subject: ...

---
 src/Struct/UI.elm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/Struct/UI.elm')

diff --git a/src/Struct/UI.elm b/src/Struct/UI.elm
index 108ab04..9f1ce8f 100644
--- a/src/Struct/UI.elm
+++ b/src/Struct/UI.elm
@@ -12,6 +12,7 @@ import Struct.Event
 --------------------------------------------------------------------------------
 type InputType =
    NoInput
+   | FloatInput
    | IntegerInput
    | StringInput
    | CommandInput
@@ -23,6 +24,8 @@ type alias Type =
       displayed_choices : (List (Int, (Html.Html Struct.Event.Type))),
       min : Int,
       max : Int,
+      min_float : Float,
+      max_float : Float,
       input : InputType
    }
 
@@ -41,6 +44,8 @@ new =
       displayed_choices = [],
       min = -1,
       max = -1,
+      min_float = -1.0,
+      max_float = -1.0,
       input = NoInput
    }
 
@@ -65,6 +70,10 @@ display_choice ix html ui =
 prompt_string : Int -> Int -> Type -> Type
 prompt_string min max ui = {ui | min = min, max = max, input = StringInput}
 
+prompt_float : Float -> Float -> Type -> Type
+prompt_float min max ui =
+   {ui | min_float = min, max_float = max, input = FloatInput}
+
 prompt_integer : Int -> Int -> Type -> Type
 prompt_integer min max ui = {ui | min = min, max = max, input = IntegerInput}
 
-- 
cgit v1.2.3-70-g09d2