repos
/
qt.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
initial import
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))
'
7
(:metaclass smoke::smoke-wrapper-class))
'
8
'
9
(defmethod cxx:timer-event ((object my-object) &rest args)
'
10
(declare (ignore args))
'
11
(format t "TIME~%")
'
12
(incf (counter object)))
'
13
'
14
'
15
;;FIXME
'
16
#|(5am:test timer
'
17
(let ((object (make-instance 'my-object)))
'
18
(qt:init-app)
'
19
(5am:is (= 0 (counter object)))
'
20
(cxx:starttimer object 50)
'
21
(sleep 3)
'
22
(5am:is (= 1 (counter object)))))
'
23
|#