+(defcfun (action-block-activate "gtk_action_block_activate") :void
+ (action (g-object action)))
+
+(export 'action-block-activate)
+
+(defcfun (action-unblock-activate "gtk_action_unblock_activate") :void
+ (action (g-object action)))
+
+(export 'action-unblock-activate)
+