+;;;; Cell Renderer
+
+(defmethod compute-signal-function ((gobject cell-renderer-toggle) (signal (eql 'toggled)) function object)
+ (declare (ignore gobject signal function object))
+ (let ((function (call-next-method)))
+ #'(lambda (object path)
+ (funcall function object (ensure-tree-path path)))))
+