sig
  type textVariable
  val create : ?on:'a Widget.widget -> unit -> Textvariable.textVariable
  val set : Textvariable.textVariable -> string -> unit
  val get : Textvariable.textVariable -> string
  val name : Textvariable.textVariable -> string
  val cCAMLtoTKtextVariable : Textvariable.textVariable -> Protocol.tkArgs
  val handle : Textvariable.textVariable -> callback:(unit -> unit) -> unit
  val coerce : string -> Textvariable.textVariable
  val free : Textvariable.textVariable -> unit
end