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