- (signal-connect action 'activate
- #'(lambda ()
- (funcall callback (toggle-action-active-p action))))
- (funcall callback active))
+ (destructuring-bind (function &key object after) (mklist callback)
+ (signal-connect action 'activate
+ (if object
+ #'(lambda (object)
+ (funcall function object (toggle-action-active-p action)))
+ #'(lambda ()
+ (funcall function (toggle-action-active-p action))))
+ :object object :after after)
+ ;(funcall callback active)
+ (when active
+ (action-activate action))))