sig type t = Titlebar | Resize | Close | Fullscreen val none : 'a list val default : SFStyle.t list end