sig
  val add : path:string -> ?priority:Tk.optionPriority -> string -> unit
  val clear : unit -> unit
  val get : 'a Widget.widget -> name:string -> clas:string -> string
  val readfile : ?priority:Tk.optionPriority -> string -> unit
end