+#+gtk2.8
+(progn
+ (define-callback-marshal %stock-translate-callback string ((path string)))
+
+ (defbinding (stock-set-translate-function "gtk_stock_set_translate_func")
+ (domain function) nil
+ (domain string)
+ (%stock-translate-callback callback)
+ ((register-callback-function function) unsigned-int)
+ (user-data-destroy-callback callback)))
+
+