This is server API (go to client)

Module Ew_button

module Ew_button : sig..end

type 'a elt' = 'a Eliom_content.Html5.elt
type element' = Html5_types.body_content
type button_dyn_alert_fun' = 
  element' elt' ->
  Ew_alert.element' Ew_alert.elt' ->
  Ew_alert.content' Ew_alert.elt' list Lwt.t
val closeable_by_click : element' elt' -> element' elt'
val button : 
  ?set:Ew_active_set.t' Eliom_pervasives.client_value ->
  ?pressed:bool ->
  ?predicate:(unit -> bool Lwt.t) ->
  element' elt' -> element' elt'
val button_alert : 
  ?set:Ew_active_set.t' Eliom_pervasives.client_value ->
  ?pressed:bool ->
  ?predicate:(unit -> bool Lwt.t) ->
  ?allow_outer_clicks:bool ->
  ?closeable_by_button:bool ->
  ?before:(Ew_alert.element' Ew_alert.elt' ->
   Ew_alert.element' Ew_alert.elt' -> unit) ->
  ?after:(Ew_alert.element' Ew_alert.elt' ->
   Ew_alert.element' Ew_alert.elt' -> unit) ->
  Ew_alert.element' Ew_alert.elt' ->
  Ew_alert.element' Ew_alert.elt' ->
  Ew_alert.element' Ew_alert.elt' * Ew_alert.element' Ew_alert.elt'
val button_dyn_alert : 
  ?set:Ew_active_set.t' Eliom_pervasives.client_value ->
  ?pressed:bool ->
  ?predicate:(unit -> bool Lwt.t) ->
  ?allow_outer_clicks:bool ->
  ?closeable_by_button:bool ->
  ?before:(Ew_alert.element' Ew_alert.elt' ->
   Ew_alert.element' Ew_alert.elt' -> unit Lwt.t) ->
  ?after:(Ew_alert.element' Ew_alert.elt' ->
   Ew_alert.element' Ew_alert.elt' -> unit Lwt.t) ->
  Ew_alert.element' Ew_alert.elt' ->
  Ew_alert.element' Ew_alert.elt' ->
  button_dyn_alert_fun' Eliom_pervasives.client_value ->
  Ew_alert.element' Ew_alert.elt' * Ew_alert.element' Ew_alert.elt'