-(defcallback %clipboard-targets-receive-func
- (nil (clipboard pointer)
- (atoms (vector gdk:atom n-atoms))
- (n-atoms unsigned-int)
- (user-data unsigned-int))
- (funcall (find-user-data user-data) atoms))
+(define-callback %clipboard-targets-receive-callback nil
+ ((clipboard pointer) (atoms (vector gdk:atom n-atoms))
+ (n-atoms unsigned-int) (callback-id unsigned-int))
+ (funcall (find-user-data callback-id) atoms))