TGtkCalendar

type TGtkCalendar = record

  widget: TGtkWidget;

  header_style: PGtkStyle;

  label_style: PGtkStyle;

  month: gint;

  year: gint;

  selected_day: gint;

  day_month: array [0..5] of array [0..6] of gint;

  day: array [0..5] of array [0..6] of gint;

  num_marked_dates: gint;

  marked_date: array [0..30] of gint;

  display_flags: TGtkCalendarDisplayOptions;

  marked_date_color: array [0..30] of TGdkColor;

  gc: PGdkGC;

  xor_gc: PGdkGC;

  focus_row: gint;

  focus_col: gint;

  highlight_row: gint;

  highlight_col: gint;

  private_data: gpointer;

  grow_space: array [0..31] of gchar;

end;