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-30 07:21:10.000000000 +0100
+++ new-kde.tests/src/click.lisp	2014-10-30 07:21:10.000000000 +0100
@@ -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")