repos
/
kde.tests
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
:qt.test stuff is in :qt
Annotate for file src/click.lisp
2010-04-03 tobias
1
(in-package :kde.tests)
2009-04-02 tobias
2
22:18:27 '
3
(5am:in-suite :kde.suite)
'
4
'
5
(defclass my-widget (kde:push-button)
'
6
()
2009-06-11 tobias
7
(:metaclass smoke::smoke-wrapper-class))
2009-04-02 tobias
8
22:18:27 '
9
(5am:test click-test
'
10
"Test clicking a button."
2009-07-27 tobias
11
(kde::with-kde ("hello" "hello-world" "0.0.1")
19:28:28 '
12
(let ((widget (make-instance 'my-widget))
'
13
(click-count 0))
2009-06-11 tobias
14
(qt:connect-function widget "clicked()"
19:01:21 '
15
#'(lambda ()
'
16
(incf click-count)))
2009-07-27 tobias
17
19:28:28 '
18
(cxx:set-text widget "Click Me")
2009-04-02 tobias
19
2009-07-27 tobias
20
(5am:is (= 0 click-count))
2009-06-11 tobias
21
(qt:test.mouse-click widget qt:+left-button+)
2009-07-27 tobias
22
(5am:is (= 1 click-count)))))