sig
  val variable : Textvariable.textVariable -> unit
  val visibility : 'a Widget.widget -> unit
  val window : 'a Widget.widget -> unit
end