object
  val virtual obj : [> `calendar ] Gobject.obj
  method day : int
  method month : int
  method set_day : int -> unit
  method set_month : int -> unit
  method set_year : int -> unit
  method year : int
end