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