sig val create : ?slide:Bogue.Avar.direction -> ?adjust:Bogue.Layout.adjust -> ?expand:bool -> ?canvas:Bogue.Draw.canvas -> ?name:string -> (string * Bogue.Layout.t) list -> Bogue.Layout.t end