sig

  val create : ?border:Bogue.Style.border -> Bogue.Layout.t -> Bogue.Widget.t

  val to_cursor :

    ?hot_x:int -> ?hot_y:int -> Bogue.Layout.t -> Tsdl.Sdl.cursor option

end