(* not present in lablgtk 2.4.0 *)
external get_home_dir : unit -> string = "_ml_g_get_home_dir"

external invisible_new : unit -> [Gtk.widget|`invisible] Gtk.obj = "_ml_gtk_invisible_new"

external tree_view_expand_to_path :
  Gtk.tree_view Gtk.obj -> Gtk.tree_path -> unit = "_ml_gtk_tree_view_expand_to_path"

module Date = struct
  type t

  external make_dmy : int -> int -> int -> t = "_ml_g_date_set_dmy"
  external current_time : unit -> t = "_ml_g_date_current_time"
  external strftime : t -> string -> string -> int = "_ml_g_date_strftime"
  external add_months : t -> int -> unit = "_ml_g_date_add_months"
  external subtract_months : t -> int -> unit = "_ml_g_date_subtract_months"
end