| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2022-01-30 12:27:36 +0100 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2022-01-30 12:27:36 +0100 |
| commit | d222161a5bcce5c0f2848d9714ab509b4ba957ff (patch) | |
| tree | d1d0c4c8b19a87cf7a3b5cdd6ba17c39bb482940 /src/View/PlayerInput.elm | |
| parent | b1d6d8af0e31123d46e102bc68fcfd02d3b51256 (diff) | |
Seems to be working.
Diffstat (limited to 'src/View/PlayerInput.elm')
| -rw-r--r-- | src/View/PlayerInput.elm | 44 |
1 files changed, 40 insertions, 4 deletions
diff --git a/src/View/PlayerInput.elm b/src/View/PlayerInput.elm index e8004f4..da3162c 100644 --- a/src/View/PlayerInput.elm +++ b/src/View/PlayerInput.elm @@ -71,9 +71,18 @@ get_html model = ), (Html.Attributes.max (String.fromFloat model.ui.max_float) - ) + ), + (Html.Events.onInput (Struct.Event.UserInputInProgress)) + ] + [ ] + ), + (Html.button [ + (Html.Events.onClick (Struct.Event.UserInputValidated)) + ] + [ + (Html.text "OK") ] ) ] @@ -105,9 +114,18 @@ get_html model = [ (Html.Attributes.class "tonkadur-input-field"), (Html.Attributes.min (String.fromInt model.ui.min)), - (Html.Attributes.max (String.fromInt model.ui.max)) + (Html.Attributes.max (String.fromInt model.ui.max)), + (Html.Events.onInput (Struct.Event.UserInputInProgress)) + ] + [ + ] + ), + (Html.button + [ + (Html.Events.onClick (Struct.Event.UserInputValidated)) ] [ + (Html.text "OK") ] ) ] @@ -139,9 +157,18 @@ get_html model = [ (Html.Attributes.class "tonkadur-input-field"), (Html.Attributes.minlength model.ui.min), - (Html.Attributes.maxlength model.ui.max) + (Html.Attributes.maxlength model.ui.max), + (Html.Events.onInput (Struct.Event.UserInputInProgress)) + ] + [ + ] + ), + (Html.button + [ + (Html.Events.onClick (Struct.Event.UserInputValidated)) ] [ + (Html.text "OK") ] ) ] @@ -174,9 +201,18 @@ get_html model = [ (Html.Attributes.class "tonkadur-input-field"), (Html.Attributes.minlength model.ui.min), - (Html.Attributes.maxlength model.ui.max) + (Html.Attributes.maxlength model.ui.max), + (Html.Events.onInput (Struct.Event.UserInputInProgress)) + ] + [ + ] + ), + (Html.button + [ + (Html.Events.onClick (Struct.Event.UserInputValidated)) ] [ + (Html.text "OK") ] ) ] |