sig

  type t

  type font

  type style

  val create :

    ?size:int ->

    ?font:Bogue.Label.font ->

    ?style:Bogue.Label.style ->

    ?fg:Bogue.Draw.color ->

    ?align:Bogue.Draw.align -> string -> Bogue.Label.t

  val icon : ?size:int -> ?fg:Bogue.Draw.color -> string -> Bogue.Label.t

  val set : Bogue.Label.t -> string -> unit

  val set_fg_color : Bogue.Label.t -> Bogue.Draw.color -> unit

  val size : Bogue.Label.t -> int * int

end