swrup/gadgetobrr
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add mk_dragable

Browse source
This commit is contained in:
Swrup 2024-04-12 10:46:11 +02:00
parent ba0739476d
commit 06e06a4339
4 changed files with 94 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

3
examples/slider.ml
View file

@ -22,11 +22,12 @@ let () =
~id:"my-slider" ~label:"Important slider, slide carefully"
~datalist_id:(Some datalist.datalist_id)
in
append_el_to_main slider.slider_el;
append_el_to_main slider.el;
(* don't forget to add datalist to document too! *)
append_el_to_main datalist.datalist_el;
(* add listener on slider change *)
Slippery_slidy.add_slider_input_listener slider (fun x ->
Printf.printf "slider value: %f !!@." x );
Slippery_slidy.mk_dragable slider;
()