-(defcallback %accel-map-foreach-func
- (nil
- (callback-id unsigned-int) (accel-path (copy-of string))
- (key unsigned-int) (modifiers gdk:modifier-type) (changed boolean))
- (invoke-callback callback-id nil accel-path key modifiers changed))
+(define-callback-marshal %accel-map-foreach-callback nil
+ ((accel-path string) (key unsigned-int)
+ (modifiers gdk:modifier-type) (changed boolean)) :callback-id :first)