sig
  val displayof : 'a Widget.widget -> Widget.any Widget.widget
  val follows_mouse : unit -> unit
  val force : 'a Widget.widget -> unit
  val get : ?displayof:'a Widget.widget -> unit -> Widget.any Widget.widget
  val lastfor : 'a Widget.widget -> Widget.any Widget.widget
  val next : 'a Widget.widget -> Widget.any Widget.widget
  val prev : 'a Widget.widget -> Widget.any Widget.widget
  val set : 'a Widget.widget -> unit
end