sig
  val actual_family : ?displayof:'a Widget.widget -> Tk.font -> string
  val actual_overstrike : ?displayof:'a Widget.widget -> Tk.font -> bool
  val actual_size : ?displayof:'a Widget.widget -> Tk.font -> int
  val actual_slant : ?displayof:'a Widget.widget -> Tk.font -> string
  val actual_underline : ?displayof:'a Widget.widget -> Tk.font -> bool
  val actual_weight : ?displayof:'a Widget.widget -> Tk.font -> string
  val configure :
    ?family:string ->
    ?overstrike:bool ->
    ?size:int ->
    ?slant:Tk.slant ->
    ?underline:bool -> ?weight:Tk.weight -> Tk.font -> unit
  val create :
    ?name:string ->
    ?family:string ->
    ?overstrike:bool ->
    ?size:int ->
    ?slant:Tk.slant ->
    ?underline:bool -> ?weight:Tk.weight -> unit -> Tk.font
  val delete : Tk.font -> unit
  val families : ?displayof:'a Widget.widget -> unit -> string list
  val measure : ?displayof:'a Widget.widget -> Tk.font -> string -> int
  val metrics :
    ?displayof:'a Widget.widget -> Tk.font -> Tk.fontMetrics -> int
  val names : unit -> string list
end