type stop = [ | `Full_content| `Interval of simple_stop * simple_stop| `Percent of int| `Px of int ]type tongue = {elt : Html_types.div Eliom_content.Html.D.elt;stop_signal_before : simple_stop React.S.t Eliom_client_value.t;stop_signal_after : simple_stop React.S.t Eliom_client_value.t;swipe_pos : int React.S.t Eliom_client_value.t;px_signal_before : int React.S.t Eliom_client_value.t;px_signal_after : int React.S.t Eliom_client_value.t;}val tongue :
?a:[< Html_types.div_attrib ] Eliom_content.Html.attrib list ->
?side:[ `Bottom | `Left | `Right | `Top ] ->
?stops:stop list ->
?init:simple_stop ->
?handle:[> `Div ] Eliom_content.Html.elt ->
?update:simple_stop React.event Eliom_client_value.t ->
[< Html_types.div_content_fun ] Eliom_content.Html.elt list ->
tongue