From ec812521b31471ce9ac3d9bdf1288b1569defbc8 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Wed, 23 Dec 2020 19:11:31 +0100 Subject: Add svg output --- elements/input.ml | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100755 elements/input.ml (limited to 'elements/input.ml') 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 + + -- cgit v1.2.3