From bbb81efa5db629f5509af6702bf68bef61a18c18 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 1 Nov 2009 18:29:41 +0300 Subject: [PATCH] Fix timer to return T in callback --- gtk/gtk.timer.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gtk/gtk.timer.lisp b/gtk/gtk.timer.lisp index cc93064..ef323cb 100644 --- a/gtk/gtk.timer.lisp +++ b/gtk/gtk.timer.lisp @@ -22,7 +22,7 @@ (defun start-timer (timer) (unless (slot-value timer 'source-id) (setf (slot-value timer 'source-id) - (gtk-main-add-timeout (timer-interval-msec timer) (lambda () (funcall (timer-fn timer))))))) + (gtk-main-add-timeout (timer-interval-msec timer) (lambda () (funcall (timer-fn timer)) t))))) (defun stop-timer (timer) (when (slot-value timer 'source-id) -- 1.7.10.4