projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c1ddf63
)
Fix timer to return T in callback
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sun, 1 Nov 2009 15:29:41 +0000
(18:29 +0300)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sun, 1 Nov 2009 15:29:41 +0000
(18:29 +0300)
gtk/gtk.timer.lisp
patch
|
blob
|
history
diff --git
a/gtk/gtk.timer.lisp
b/gtk/gtk.timer.lisp
index
cc93064
..
ef323cb
100644
(file)
--- 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)