let connect ~key ?modi ?flags ~callback g = connect_ g ~key ?modi ?flags ~callback:(Closure.create (fun _ -> callback ()))