Thu Jun 11 21:01:21 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* smoke-wrapper-class in now cxx:class
diff -rN -u old-kde.tests/src/click.lisp new-kde.tests/src/click.lisp
--- old-kde.tests/src/click.lisp 2014-10-05 22:37:54.000000000 +0200
+++ new-kde.tests/src/click.lisp 2014-10-05 22:37:54.000000000 +0200
@@ -4,16 +4,16 @@
(defclass my-widget (kde:push-button)
()
- (:metaclass smoke::smoke-wrapper-class))
+ (:metaclass cxx:class))
(5am:test click-test
"Test clicking a button."
(kde::with-kde ("hello" "hello-world" "0.0.1")
(let ((widget (make-instance 'my-widget))
(click-count 0))
- (qt:connect-function widget "clicked()"
- #'(lambda ()
- (incf click-count)))
+ (qt:connect (qt:get-signal widget "clicked()")
+ #'(lambda ()
+ (incf click-count)))
(cxx:set-text widget "Click Me")