+(defcfun gdk_display_add_client_message_filter :void
+ (display (g-object display))
+ (message-type gdk-atom-as-string)
+ (func :pointer)
+ (data :pointer))
+
+(defun dispaly-add-client-message-filter (display message-type fn)
+ (gdk_display_add_client_message_filter display message-type (callback gdk-client-message-filter-func) (allocate-stable-pointer fn)))
+
+(export 'display-add-client-message-filter)