Sat Feb 20 18:23:58 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix analog-clock timer interval
diff -rN -u old-qt.examples/src/qt/analog-clock.lisp new-qt.examples/src/qt/analog-clock.lisp
--- old-qt.examples/src/qt/analog-clock.lisp 2014-10-30 06:59:35.000000000 +0100
+++ new-qt.examples/src/qt/analog-clock.lisp 2014-10-30 06:59:35.000000000 +0100
@@ -47,7 +47,7 @@
(let ((timer (make-instance 'qt:timer :arg0 clock)))
(qt:connect (qt:get-signal timer "timeout()")
(qt:get-slot clock "update()"))
- (cxx:start timer))
+ (cxx:start timer 1000))
(setf (cxx:window-title clock) "Analog Clock")
(cxx:resize clock 200 200))