sig
  type day = [ `fri | `max | `mon | `sat | `sun | `thu | `tue | `wed ]
  val add : Evas.obj -> Evas.obj
  val addx : Elm_object.t_addx
  val day_selected_set : Evas.obj -> Elm_dayselector.day -> bool -> unit
  val day_selected_get : Evas.obj -> Elm_dayselector.day -> bool
  val week_start_set : Evas.obj -> Elm_dayselector.day -> unit
  val week_start_get : Evas.obj -> Elm_dayselector.day
  val weekend_start_set : Evas.obj -> Elm_dayselector.day -> unit
  val weekend_start_get : Evas.obj -> Elm_dayselector.day
  val weekend_length_set : Evas.obj -> int -> unit
  val weekend_length_get : Evas.obj -> int
  val weekdays_names_set : Evas.obj -> string array -> unit
  val weekdays_names_get : Evas.obj -> string list
  val day_of_ptr : Evas.ptr -> Elm_dayselector.day
end