;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtktree.lisp,v 1.21 2006-06-23 12:25:37 espen Exp $
+;; $Id: gtktree.lisp,v 1.23 2006-08-15 10:13:42 espen Exp $
(in-package "GTK")
(cell cell-renderer))
+;;;; 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)))))
+
;;;; List Store
#'(lambda (location &optional (offset 0))
(%tree-path-free (ref-pointer location offset))))
+(defun ensure-tree-path (path)
+ (etypecase path
+ (string (coerce (clg-utils:split-string path :delimiter #\:) 'vector))
+ (vector path)))
+
(defbinding %tree-row-reference-new () pointer
(model tree-model)