`sig
val cast : 'a Gobject.obj -> Gtk.calendar Gtk.obj
module P :
sig
val day : ([> `calendar ], int) Gobject.property
val month : ([> `calendar ], int) Gobject.property
val year : ([> `calendar ], int) Gobject.property
end
module S :
sig
val day_selected : ([> `calendar ], unit -> unit) GtkSignal.t
val day_selected_double_click :
([> `calendar ], unit -> unit) GtkSignal.t
val month_changed : ([> `calendar ], unit -> unit) GtkSignal.t
val next_month : ([> `calendar ], unit -> unit) GtkSignal.t
val next_year : ([> `calendar ], unit -> unit) GtkSignal.t
val prev_month : ([> `calendar ], unit -> unit) GtkSignal.t
val prev_year : ([> `calendar ], unit -> unit) GtkSignal.t
end
val create : Gtk.calendar Gobject.param list -> Gtk.calendar Gtk.obj
external select_month :
[> `calendar ] Gtk.obj -> month:int -> year:int -> unit
= "ml_gtk_calendar_select_month"
external select_day : [> `calendar ] Gtk.obj -> int -> unit
= "ml_gtk_calendar_select_day"
external mark_day : [> `calendar ] Gtk.obj -> int -> unit
= "ml_gtk_calendar_mark_day"
external unmark_day : [> `calendar ] Gtk.obj -> int -> unit
= "ml_gtk_calendar_unmark_day"
external get_num_marked_dates : [> `calendar ] Gtk.obj -> int
= "ml_gtk_calendar_get_num_marked_dates"
external is_day_marked : [> `calendar ] Gtk.obj -> int -> bool
= "ml_gtk_calendar_is_day_marked"
external clear_marks : [> `calendar ] Gtk.obj -> unit
= "ml_gtk_calendar_clear_marks"
external display_options :
[> `calendar ] Gtk.obj -> Gtk.Tags.calendar_display_options list -> unit
= "ml_gtk_calendar_display_options"
external get_date : [> `calendar ] Gtk.obj -> int * int * int
= "ml_gtk_calendar_get_date"
external freeze : [> `calendar ] Gtk.obj -> unit = "ml_gtk_calendar_freeze"
external thaw : [> `calendar ] Gtk.obj -> unit = "ml_gtk_calendar_thaw"
end`