From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 1 Nov 2009 15:29:41 +0000 (+0300)
Subject: Fix timer to return T in callback
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=bbb81efa5db629f5509af6702bf68bef61a18c18;p=cl-gtk2.git

Fix timer to return T in callback
---

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)