blob: 790b15dc2cc5cd5a2c7368ba5a851291f5b92c15 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
|