From 038891cf1bca1d4a4086e5bb6b39a93ece5b67c3 Mon Sep 17 00:00:00 2001 Message-Id: <038891cf1bca1d4a4086e5bb6b39a93ece5b67c3.1719211306.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 15 Aug 2006 10:13:42 +0000 Subject: [PATCH 1/1] Path argument to the toggle signal for cell-renderer-toggle convertet from string to vector Organization: Straylight/Edgeware From: espen --- gtk/gtktree.lisp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/gtk/gtktree.lisp b/gtk/gtktree.lisp index 0d10156..b5abc0e 100644 --- a/gtk/gtktree.lisp +++ b/gtk/gtktree.lisp @@ -20,7 +20,7 @@ ;; 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.22 2006/06/23 12:46:26 espen Exp $ +;; $Id: gtktree.lisp,v 1.23 2006/08/15 10:13:42 espen Exp $ (in-package "GTK") @@ -73,6 +73,14 @@ (defbinding cell-layout-clear-attributes () nil (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 -- [mdw]