sig
  val current :
    ?displayof:'a Widget.widget -> unit -> Widget.any Widget.widget list
  val release : 'a Widget.widget -> unit
  val set : ?global:Tk.grabGlobal -> 'a Widget.widget -> unit
  val status : 'a Widget.widget -> Tk.grabStatus
end