sig val create : ?dst:Bogue.Layout.t -> ?name:string -> ?action:(int -> unit) -> ?fg:Bogue.Draw.color -> string array -> int -> Bogue.Layout.t end