sig
  val load : string -> Gdk.font
  val load_fontset : string -> Gdk.font
  val string_width : Gdk.font -> string -> int
  val char_width : Gdk.font -> char -> int
  val string_height : Gdk.font -> string -> int
  val char_height : Gdk.font -> char -> int
  val string_measure : Gdk.font -> string -> int
  val char_measure : Gdk.font -> char -> int
  val get_type : Gdk.font -> [ `FONT | `FONTSET ]
  val ascent : Gdk.font -> int
  val descent : Gdk.font -> int
end