Button.Close
What closes the dialog a part is, which it gives a button inside it with slot=`close.
slot=`close
module Provider : sig ... end
val use : unit -> (unit -> unit) option