repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
use cxx:class instead of smoke-wrapper-class
Annotate for file src/overload.lisp
2009-04-02 tobias
1
(in-package :qt.tests)
22:17:02 '
2
'
3
(5am:in-suite :qt.suite)
'
4
'
5
(defclass my-object (qt:object)
'
6
((counter :accessor counter :initform 0))
2009-05-31 tobias
7
(:metaclass cxx:class))
2009-04-02 tobias
8
2009-05-31 tobias
9
(defmethod cxx:timer-event ((object my-object))
22:56:59 '
10
(incf (counter object)))
2009-04-02 tobias
11
2009-05-31 tobias
12
22:56:59 '
13
;;FIXME
'
14
#|(5am:test timer
2009-04-02 tobias
15
(let ((object (make-instance 'my-object)))
2009-05-31 tobias
16
(qt:init-app)
22:56:59 '
17
(5am:is (= 0 (counter object)))
'
18
(cxx:starttimer object 50)
'
19
(sleep 3)
'
20
(5am:is (= 1 (counter object)))))
'
21
|#