diff options
Diffstat (limited to 'elements/input.ml')
-rwxr-xr-x | elements/input.ml | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/elements/input.ml b/elements/input.ml new file mode 100755 index 0000000..790b15d --- /dev/null +++ b/elements/input.ml @@ -0,0 +1,20 @@ +open Brr +open Brr_note +open Note + +(** Create a slider element, and a signal with the value *) +let slider ~at = + let slider = + El.input ~at () in + + let event = + Evr.on_el + Ev.input (fun _ -> + let raw_value = El.prop El.Prop.value slider in + Jstr.to_int raw_value) + slider + |> S.hold (Jstr.to_int (El.prop El.Prop.value slider)) + in + slider, event + + |