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